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Tarvitsemme lisää vapaaehtoisia vastaajia Palvelevaan Puhelimeemme» 
Ilmoittakaa meille mielialueenne - liittyy toivottavasti Appleen - niin 
klubi pystyy entistä paremmin täyttämään sille asetetut tavoitteet 
jäsentensä ongelmien ratkaisijana ja tiedon lisääjänä. 

Suunnittelemme jäsenluettelon julkaisua seuraavassa lehdessämme. Jäsentä 
joka ei halua nimeään, osoitettaan ja puhelinnumeroaan julkaistavan pyyl 
damme ilmoittamaan asiasta Klubin toimistoon marraskuun loppuun mennessä. 

Paikallisten klubi-iltojen vetäjiä tarvitaan myös. Tiedustelkaa 
toimistosta opetusmateriaalia (= kaksi diskiä, toinen IAC:n BASIC-opetusta 
toinen on kotimainen, joka käsittelee Applesoftia hiukan pinnan aitakin ja 
jota tukee muutama sivu paperia). Mjokatkaa tätä materiaalia mieleiseksenne 
ja palauttakaa parhaat palat klubille muidenkin hyödyksi. 

Appleklubiiaisten ja INSKOlaisten ( Insinööri järjestö jen~l^ Jlutuskesk Js )~" 
yhteinen keskustelutilaisuus lauantaina 30 lokakuuta klo 16 INSKOn 
tiloissa Ratavartijankatu 2, III krs, 00520 HELSINKI 52 - Tervetuloa' 


- 1 - 


Juhani Viherlanti: 


APPLE-PASCAL 
Kokemuksia ja niksejä 

YLEISTÄ 

PASCAL-kieli on varsin käyttökelpoinen ja mielestäni joissakin suhteissa 
esimerkiksi BASIC-kieltä tuntuvasti parempi. APFLE-harrasta jien 
keskuudessa en ole kuitenkaan tavannut vielä kovin monia PASCALin 
käyttäjiä. Klubilehden palstoilla toivoisin vaihdettavan kokemuksia kielen 
käytöstä ja sen mahdollisista vaikeuksista. Nuo kokemukset voisivat auttaa 
ongelmien kimpussa painiskelevia. 

PASCAL-kieli poikkeaa BASICista perusteellisesti siinä, että lähdeohjelma 
käännetään ennenkuin sitä voidaan ajaa. BASICissa ohjelmarivit "tulkitaan". 
Käännösvaihetta ei varsinaisesti ole. 

Perusperiaatteiden oppimisen jälkeen kieltä on kohtalaisen helppo käyttää 
ja ohjelmista tulee melkein automaattisesti rakenteeltaan varsin selkeitä. 

Ualmiita ohjelmia on alkanut ilmestyä yhä runsaammin niin kaupan hyllylle 
kuin alan lehtiinkin. Kirjallisuutta löytyy myös jo kohtalaisesti. 
APPLE-PASCALi i n voi mukavasti tutustua opiskelemalla kirjan nimeltä 
APPLE-PASCAL - A HANDS-ON APPROACH. Kirja opettaa selkeästi APPLE-PASCALin 
perusasioita ja kielen niksejä. Kokonaiskuvan saamiseksi kielestä, 
tarvitaan vielä muuta kirjallisuutta. 


PASCAL-EDITDR 

Käyttöjärjestelmään kuuluu tekstinkäsittelyn apuohjelma EDI TOR. Vaikka 
EDI TOR onkin pääasiassa tarkoitettu oh jelmakehittelyyn, on siinä piirteitä, 
jotka soveltuvat hyvin tavalliseen tekstinkäsittelyyn. Rivien katkaisut, 
liittämiset toisiinsa, kokonaisten kappaleiden siirto tiedoston uusiin 
kohtiin ja tekstin monistaminen sujuvat aivan helposti. 

Pohjoismaisia käyttäjiä ajatellen EDITORissa on kuitenkin eräs vakava 
puute. Pienten skandinaavisten merkkien "syöttäminen" (S, ä, ö) ei ole 
minulta onnistunut tavallisella välineistöllä. Tiedostoon tulee vain noista 
kolmesta isot kirjaimet. Joko kirjoitetaan sitten kaikki teksti isoilla 
kirjaimilla tai hyväksytään tuo kauneusvirhe. Jouduin tekemään ohjelman, 
jolla jälkikäsittelynä kaikki skandinaaviset merkit muutetaan pieniksi. 
Menettely on hieman hankala ja hyvin hidas, mutta puolustaa paikkaansa, 
ellei ole tullut hankkineeksi jotain käyttökelpoisempaa tekstin 
käsittelyph jelmaa. 

EDITORin monia hyviä niksejä on käsikirjoissa, mutta joskus vain oienellä 
maininnalla. Joitakin seuraavassa niille, jotka eivät käsikirjojaan ole 
aivan tarkasti vielä lukeneet. 

CONTROL -merkkejä ei voi syöttää tekstin joukkoon suoraan KNSERT tilassa, 
^öärättyjen CONTROL -merkkien paikoille kirjoitan jonkin harvinaisen 
merkin, kuten §, i, $, &. Me vastaavat tiettyä CONTROL -merkkiä kautta 
tekstin. Kun teksti on valmis, muutetaan R(EPLACE -komennolla kaikissa 
kohdissa tekstiä nuo erityismerkit CONTROL-merkeiksl . 
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Esimerkki: EPSON-kir joitin tekee CTRL-N - merkin saatuaan lihavoituja 
merkkejä aina rivin loppuun saakka. Kautta tekstin olen kirjoittanut 
§-merkin niihin kohtiin, joista alkaa lihavoitu teksti. Seuraavilla 
näppäilyillä korvataan §:t CONTROL merkeillä: 

/R/§//CTRL-N/ 

Toiminnon alussa on hyvä siirtää kursori tekstitiedoston alkuun J(uW° 
BCEGIN komennolla. Ensimmäinen kauttaviiva ilmoittaa, että toimintoa 
toistetaan tiedoston loppuun asti. CTRL-N tarkoittaa tietenkin, että nuo 
kaksi näppäintä painetaan yhtä aikaa. 

EPSON-kirjoitin tarvitsee eräiden toimintojensa ohjaamiseksi ESCAPE-merkin. 
Niiden syöttämiseksi voidaan ajaa ohjelma, joka syöttää nuo merkit ensin 
kirjoittimelle. Sen jälkeen siirretään FILERilla varsinainen 
tekstitiedosto. 

Seuraavassa lyhyt ohjelma, jolla ESCAPE-merkin lisäksi kirjoittimelle 
syötetään jokin haluttu merkki. Esimerkiksi ESC-E:llä kirjoitin tulostaa 
vahvennettua tekstiä. ESC-G:llä puolestaan jokainen tekstirivi kirjoittuu 
kahdesti, jolloin tuloksena on kertakir joitusta tummempi kirjoitus jälki. 
Tämä on tarpeen vaikkapa silloin, kun viimeinen värinauha alkaa olla 
lopuillaan. ESC G -toiminto peruutetaan ESC H :11a. 


PROGRAM PRINTERCONTROL; 

VAR PRNT: INTERACTIVE; <* KIRJOITTIMEN MÄÄRITTELY «) 
A, B :CHAR; 

BEGIN 

RESET (PRNT, 'PR INTER:'); (« AVATAAN TIEDOSTO «) 
A := CHR(27); (« ESCAPE-MERKKI *) 
URITE ( ' ANNAPA OHJAUSMERKKI — > •); 
READLN (B); 
URITELN (PRNT, A, B) 
END. 


Ylläolevaa ohjelmaa muuntelemalla saa helposti omiin tarkoituksiin 
soveltuvan ohjausohjelman. CONTROL-merkit voi myös sijoittaa tämän 
ohjelman tulosteiksi. 


F I L E R Tiedostojen käsittelyn apuohjelma. 

UlILDCARD-merkit ovat erittäin käyttökelpoisia tiedostojen käsittelyssä. 
Toisinaan ne säästävät huomattaviltakin kirjoitustöiltä ja 
virhenäppäilyiltä. 

Käyttöesimerkki: Levyllä on joukko PRDG-alkuisia ohjelmatiedostoja; sekä 
TEXT-, että COOE-loppuisia. varmistuslevylle halutaan siirtää kaikki 
TEXT-tiedostot. Anna FILEftille komennot: 

TCRANSFER :PR0G=TEXT 
#5:$ 
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Kaikkien PROG-alkuisten ja TEXT-loppuisten tiedostojen pitäisi nyt siirtyä 
ilman enempiä toimenpiteitä levyaseman 1 levyltä levyasemaan 2 asetetulle 
varmistuslevylle tieoostonimien kopioituessa myös samoiksi 
varmistuslevylle. 

Kun tiedosto je kertyy runsaasti, välttyy jatkuvalta levyjen vaihdolta 
asemaan ja luettelojen selaamiselta ottamalla tiedostoluetteloista 
ajoittain paoerilistaukset seuraavalla tavalla: 


FILERissa annetaan komento E(XTENDED DIRECTORY LIST (luetteloitava levy on 
asemassa 1) ja näppäilyt 

**<4 CAT. TEXT 

KRANSFER komennolla siirretään sitten tiedosto kirjoittimelle ja sama 
toistetaan kaikkien levyjen kohdalla. Nämä toiminnot on syytä automatisoida 
tekemällä komennoista EXEC-tiedDsto, jossa on valmiit komennot tulostusta 
myöten. 

ftjn levy on alustettu, on syytä tarkistaa sen kunto. FILERissa on tähän 
tarkoitukseen toiminto E (AD BLDCKS. 

fcroentoa tarvitaan tietenkin myös silloin kun epäillään levy virhettä, 
valmistajien ohjeet huolellisesta levyjen käsittelystä ja pölyn 
välttämisestä eivät ole turhia. Kaikki ylimääräiset hiukkaset 
luku-kir joituspään ja levypinnan välillä hiovat tehokkaasti. Huolellisella 
käsittelyllä säästää selvää rahaa. 

Levyaseman luku-kir joituspään puhdistukseen on valmistettu 
puhdistusdiskette jä. Kahden sellaisen pakkaus maksaa hieman toista sataa 
markkaa. Käyttökertoja on yhteensä vain kolmekymmentä. Nuo 
puhdistusdisketitkin kuluttavat, joten niitä ei pidä käyttää kovin usein. 

Tiedostoluettelosssa olevat päivämäärä ti edot ovat hyvin hyödyllisiä 
ohjelmakehitys- ja miksei tekstinkir joitustyön eri versioiden 
selvillesaamiseksi. Qninaisuus, joka puuttuu DOS-BASIC -järjestelmästä. 
Istunnon aluksi on syytä tarkistaa ja päivittää FILERiin oikea päivämäärä. 


LAITTEISTOSTA 

Käytössäni olevassa laitteistokokoonpanossa oli alkuun yksi levyasema. 
Lainasin Ivhyeksi ajaksi toisen levyaseman. Kokemukset: Kahden levyaseman 
käyttö joudutti ja helpotti työskentelyä niin tuntuvasti, että ostin aivan 
pian toisen aseman. Suosittelen kahden levyaseman käyttöä PASCAL-kielellä 
toimittaessa. 


PASCAL-KÄÄNTÄJÄ, GRAFIIKKA JA 6502-ASSEMBLER 

PASCAL- järjestelmän näistä osista tulee tekstiä jäsenlehden myöhemmissä 
numeroissa^ Ne teistä, jotka ovat käyttäneet esimerkiksi grafiikkaa, 
järjestelmän 6502 assembleria, tuokaapa kokemuksenne ja havaintonne tämän 
lehden kautta muidenkin tietoon. 


PASCAL-MURHE 


APPLE-PASCAL järjestelmäni on osoittautunut yliherkäksi silloin, kun 
kirjoitin kytketään päälle tai pois. Varsin usein järjestelmä pysähtyy 
täysin, latautuu automaattisesti uudelleen tai tekee muita yhtä hankalia 
temppuja. Jos tiedoston käsittely oli kesken ja muutoksia sisältävää 
tiedostoa ei ollut talletettu lev/ylle, häviää kaikki uusi tieto. Asiaan en 
ole keksinyt muuta ratkaisua, kuin kirjoittimen kytkemisen aivan ensiksi 
päälle ja vasta sen jälkeen olen tehnyt kaikki muut toimet PASCALin kanssa. 
Käsiteltävän tiedoston ajoittainen tallentaminen levylle kesken työn on 
muutenkin paikallaan. Asian oppii kyllä myös käytännössä tuhottuaan 
virheellisellä toiminnalla pitkän, juuri kirjoitetun tiedoston. Jos 
jollakin on yliherkkyyden auttamiseksi hyviä keinoja, voisi niistä 
kertoilla klubilehden palstoilla. 


KIRJALLISUUSEHDOTUKSIA 

Välttämättömiä ovat tietenkin systeemin käsikirjat lisäyksineen sekä PASCAL 
USER MANUAL ANO REPORT, Kathleen Jensen ja Niklaus Wirth. Nehän tulevat 
systeemin oston mukana. 

Jutun alussa mainitun kirjan pitäisi kuulua mukaan systeemipakettiin. 
Kirja on ohjelmoitu PASCAL-kielen oppikirja. Se ohjaa yksityiskohtaiaesti 
APPLE-PASCALin eri toimintojen käyttöä: 

Ohjelman valmistaminen 

Äänien generointi 

Proaeduuri- ja funktioaliohjelmat 

Grafiikka 

Taulukot 

Tietueet ja tiedostot 
Rekursio jne. 


Seuraavassa tiedot kirjasta: 

APPLE PASCAL A HANDS-ON APPROACH 
Arthur Luehrmann, Herbert Peckham 
Mc Gray- Hi 11 Book Company 

Kirjaa ei ollut saatavissa tiedusteluhetkellä (2.9) Helsingin Akateemisessa 
Kirjakaupassa. Heidän luettelossaan se kuitenkin on ja sitä luvattiin 
tilata. Hinnaksi ilmoitettiin noin 120 mk, johon tulevat mukaBn vielä 
mahdolliset postituskulut. Kirja on mahdollista tilata myös suoraan 
kustantajalta: 

fcGrau-Hill Book Company QnbH 
Lademannbogen 136 
D-2000 Hamburg 63 
Saksan Liittotasavalta 

Hinta posti tuskuluineen oli OM M*, 90 viime keväänä. 

Toinen oletettavasti tärkeä kirja on A.P.P.L.E.:n IN-OEPTH - sarjan 
uutuuskirja "ALL ABOUT PASCAL". Call-A.P.P.L.E. :ssa sitä tarjotaan 
sen jäsenille hintaan USD 11.00 ja kirjan ohjelmat saa kahdella levyllä 
hintaan USD 20.00. Klubilaisista osb on tämän amerikkalaisen järjestön 


jäseninä ja tullee kirjan tilaamaan. Saamme siitä varmaan arvioita 
seuraavissa kluoilehden numeroissa. 

Englanninkielisiä PASCAL -kielen oppikirjoja löytyy useita muitakin. 
Parhaiten niistä saa tietojB kirjakauppojen luetteloista. 


Saksankieltä taitaville löytyy PASCALin perusteet sisältävä kirja 

PASCAL - EINFUEHRUNG FUER TECHNIKER 
Wolfgang Schneider 

Kustantaja: Friedr. Vieueg & Sohn 
Uerlagsgesellschaf t QnbH 
Postfach 58 29 
D-6200 Wiesbaden 1 

Se on julkaistu vuonna 1981 ja maksoi Saksassa samana vuonna DM 22.- Kirja 
sisältää kielen perusrakenteiden kuvaukset. Se on tehty suhteellisen 
selkeäksi. Kirjassa on tavanomaisen vuokaaviotekniikan lisäksi mukana aika 
harvoin esitettävä rakenteisen vuokaavion kuvaus (Nassi-Shneiderman 
-kaavio). 

Suomen kielellä on ilmestynyt ainakin seuraavat OtaDATAn kustantamat 
kirjat: 

PASCAL-OHJELMOINTIKIELI 

Xkka Korpela, Timo Larmela ja Ahti Planman 

OtaDATA myy kirjaa hintaan 65,- mk ja postituskulut 
Opiskelijahinta on 35,- mk ja postituskulut. 

Kirja kuvaa kielen erittäin tarkasti, mutta samalla myös raskaasti. En 
suosittele aivan aloittelijoiden hankittavaksi. Se soveltuu käytettäväksi 
käsikirjana. 

Hei pompi lukuinen vaikkakaan ei aivan helppo sekään on 

JOHDATUS OHJELMOINTI IM PASCAL-KIELEN AVULLA 
Saikkonen, Voipio 

OtaDATAn luettelohinta on 70,- mk ja 
opiskelijahinta on 50,- mk. Postikulut päälle. 

Useimmat kirjakauoat myyvät myös näitä OtaDATAn kirjoja. 


Helsingin ja Tampereen yliopistot ovat julkaisseet kumpikin oman 
luentomonisteensa. Niitä voi tiedustella yliopistojen tietojenkäsittelyopin 
laitosten monistustoimistoista. Tampereen moniste oli valmiimmassa asussa 
kuin Helsingin vastaava. 


Helsinki 3.9.82 
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Markku Siivola 


VAPAUTTA JA TEKSTINLUKIJA 


PFW6 päästää varsinaisen MUnchausenin irti. Kuin itsensä tukasta nostapn 
kotapu 61 "? D °V^ ^nohjausjärjeetelmä (versio 3.3) itäen ä levyn 
kolmelta ulommaiselta raidalta neljän eri vaiheen kautta ylös Applen 
muistiin niin korkealle kuin pääsee. Ekapansiokorttlen tultua markkinoille 
pääsee DOS, kun sitä hieman autetaan, vielä niihinkin eli tosi korkealle 
Koska se on vain tavallinen kuolevainen ohjelma, voidaan sitä myös 

k! leenSä kannatt =a säilyttää DOSslnsa niin vähän sormeiltuna kuin 
mahdollista jottei Joidenkin suoraan DOSsin kanssa keskusteli en 
ohjelmien tai uusien DOS-versioiden kanssa tule vllätvksiä mutt* »(„*.„ 
omista ohjelmista pitäisi tietää, mitä ne tekevät. ' 

Seuraavat DOS-muutokset helpottavat käyttäjän arkea lisäämällä DOSailn 

kakal ominaisuutta yhden hinnalla. DOSsiass on siellä täällä tyhliä 

paikkoja, joihin Innokaa harrastelija voi tunkea omia aikaanssannokslaan 

«ItSftE. käyttävät näitä paikkoja hyväkseen. Seuraava oh^ma on 

mt\ a? X k " u " CaU - fl - P - P - UE: - BBB ' """a aan Periaateselostukset 
löytyvät huhtl- ja kesäkuun 1982 C-A:n numeroista. 

rt?i^n 80i JT* nolw »f llDOS sHl= (3.3). Voit myös luods siitä master 
disketin, mutta slavellakin näyttää tämä viimeinen versio toimivan mm 
FREESPACE AND EILEDUMP POKER (listsus lehden loppuosassa). Lataa ^a 
HELLOsi koneeseen Je INIT HELLO. Koeta nyt CATALOG, ja siellä missä tuo 

^sa^rsSe^ol^s^ " ro8j3iUUt ' **~ >* ^ ^ 

Enää ei tarvitse erikseen latailla vapaan tilan ilmoittavia ohielmia - 

vleensä ^Jau™ ^l*"^ ^ FIDi8 ' ** B Bntaa a - a Ha alueella 
^,,^ ä 2 ™ a J aileva lle Appleaoft-tuotteelle lähtöpassit. 
SAV/EDISKFULLDELETE-ssr Ja lienee jo monille turhankin tuttu. 

fe X nilh D nV™J nB " kalia «ikkoja. Niihin ei tahdo oäästä kunnolla käsiksi, 
ja niiden lutminenkin on Applessa melkoista nakuttamista: avaa, aulje 

knkpTlo 8 ; i U, 'J 0t JSS? kaikanlals i a ohjelmia niiden lukemiseen on. muka 
kokeile nyt uutta DOSsiasi: FILEDUMP JOKUTEXTFILENIMI, Ja sen salat 
paljastuvat. HUOMAA, ETTÄ MAXFILES-KASKY ON JOUDUTTU UHRAAMAAN 


fTJTl "iginelli keksintö on pyörittää ohjelma pelkästään monitoriruutua 
kaikkr! f ""»■"■»««11--' *skus tämä saattaa tulla kyseeseen, kun 
kaikki muut paikat ovat Jo täynnä, kuten tyypillinen tila $300:sta 
ylöspäin 8-vek tori Ja DOSsin alapuoli. Mike Firth esittää tämän kuun 
C-A:ssa tällaisen FREE SPACE ON THE SCREEN-ohJelmsn (listsus leMen 
? DU « Sa ^r* Hjtmaa ' kuinka voit reaaliajassa seurata ruudultasi oh leiman 

osl tteesTv So8 8 in 8 uF^StL™''™ EU """»^ttB.! llÄ 
«n h,, 6 ! 8 n < Xi« pB i l ! , ( ^ ple 11 Terence Msnusl, sivu 14). Vain korkeintaan 
In^™« B .o P n^ ,° Jelm8 L V0i taf * n lBdats ' k08ka aen törmätään jo 

nS ; as S"* chtwd RflM " otteeseen $478 eli 1141.. (Apple 
II Reference Manual, sivu 83). 11U miinus 1024 « 120 m.o.t. 
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Tero Sand: 


LATAAMISVAIKEUKSIA? 


Oletteko koskaan kuulleet diskienne murisevan ja hetken päästä nähneet 
I/O ERRORin piippauksen kera? Ette? No onko teillä diskiä? 

Joka tapauksessa minä olen, hyvinkin usein. Useimmiten tämä näyttäytyy 
silloin, kun olen lataamassa jotakin tärkeätä ohjelmaa, useimmiten 
yrittäessäni tehdä kyseisestä fileestä back-uppia. Aina ei file kuitenkaan 
ole lopullisesti menetetty, mikäli itse diski CATALOGaantuu normaalisti. 
Seuraava lyhyt ohjelma saattaa hyvinkin pelastaa päivän: 

10 ONERR GOTO 30 

20 D$ = CHR$ (13): REM CTRL-D 

30 PRINT D$ ; "BLOAD xxx" 

Antakaa tämän ohjelman jyystää levyänne vähintään viisi minuuttia. Se tosin 
pitää melkoista murinaa, mutta kannattaahan se, jos kyseinen file saadaan 
ladattua. Minulla tämä auttoi; rutiini loukutti levyä ensin pari minuuttia, 
mutta sitten ilmestyi kaunis A kursorin kera. Siitä vain säästämään file. 
Futiini sopii parhaiten konekielien jelmiin, sillä BASIC-ohjelmat tuhoavat 
ylläolevan, vaikka homma saattaisikin loppua kesken. 

Honekieliohjelman kohdalla saattaa tulla ongelmia, mikäli pelastettava 
rutiini latautuu $800:aan sillä APPLESOFT-ohjelma majailee siellä, ja 
binääriohjelmaa ladattaessa APPLESOFT-ohjelma tuhoutuu eikä ONERR 
luonnollisesti enää toteudu. Mikäli näin hullusti on asiat, on kaksi 
vaihtoehtoa: APPLESOFT-ohjelman nosto konekieliohjelman ulottumattomiin tai 
binäärifileen lataaminen eri osoitteeseen. 

Ensimainittu käy näin: 

ÄFP 

ÄCALL -151 
*67: XX YY 
»YYXX-1 :□□ 
*<CTRL-C> <RETURN> 

Missä XX YY on alkuosoite. Esim. $*+001 on 01 UO. EI MISSÄÄN NIMESSÄ 
<CTRL-B> TAI FP, sillä ne palauttavat alkuosoitteiksi $801 :n.' 
Toinen menetelmä käy niin, että muuttaa rivin 20: 

30 PRINT D$; "BLOAD xxx,A$uusi osoite" 

Kun file on latautunut, säästä: 

BSAV/Exxx, A$osoite, L$pituus. 

Sitten lataa ja säästä alkuperäiseen paikkaansa: 

BLOADxxx, A$alkup. osoite 

BSAV/Exxx, A$alkup. osoite, L$pituus. 
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Aapi Juntura: 


AUTOMAATTINEN PIIRTÄMINEN 


Erilaiset tekniset suunnitelmat ja kartat piirretään yleensä kahteen 
kertaan; ensin konsepti ja sitten puhtaaksipiir- 
r o s. Automatiikan avulla olisi ilmeisesti helpointa aloittaa 
puhtaaksipiirtäminen. Toinen mahdollisuus olisi pyrkiä heti konsepti- ja 
laskentavaiheessa valmistamaan puhtaaksipiirros koneellisesti. 

Olen tutustunut ongelmaan noin vuoden ajan Lapin 
Keskusammattikoulun kartanpiirtö jälin jan saatua käyttöönsä seuraavat 
laitteet : 

Apple 11+ 48K & minifloppy 
Apple Graphics Tablet 
blatanabe-piirturi 

Laitteiston toimittajalla ei ollut tarjota sopivaa ohjelmistoa. Näin 
muodostui pakottava tarve tehdä ohjelmisto, jolla voitaisiin oppilaita 
tutuatuttaa automaattisen piirtämisen yhteydessä syntyviin ongel- 
miin ja laitteiston toimintaperusteisiin. 
Ohjelmisto ei voi olla vähäisestä ajasta ja resursseista johtuen kovinkaan 
täydellinen; mm. käyttäjän virhe helposti tuhoaa koneen muistiin tehdyn 
tiedoston yms. 

Kaikitenkin puutteineenkin ohjelmistolla voidaan kuitenkin tehdä myös 
hyödyllistä työtä, vaikka olenkin pyrkinyt helppokäyttöisyyteen, olen 
joutunut huomaamaan, ettei oppilBs saa ilman ohjausta laitteistolla mitään 
muuta kuin punaiset posket ja epämääräisiä pisteitä ja viivoja. 

Olen laatinut kaksi ohjelmaa: graf iikkatauluoh jelman ja 
piirturiohjelman. Ne voi kyllä yhdistääkin, jos haluaa. Olen kuitenkin 
pitänyt ne erillisinä siksi, että näin jää muuttujille enemmän tilaa koneen 
muistissa. 

Tämä esipuheen jälkeen siirryn graf iikkatauluoh jelmaan. 


GRAF I I KK ATAULUOH JELMA 

Grafiikkataulun eli graafisen hahmottimen eli digitointilevyn käyttö on 
verraten helppoa työtä, jos tarkkuudella ei ole niin väliä. Apple Graphics 
Tablet on ohjelmaltaan varsin monipuolinen; mm. pinta-ala, pituus, 
mittakaavan asetus, värejä 8 kpl, kehys, laatikko, viiva, ikkuna... Käytön 
oppii ohjekirjan ja tabletin menun avulla noin parissa päivässä kunnolla. 
Varsinainen vaikeus oli se, että tiedston luonti tapahtuu 
konekielitiedostona. Tästä seuraa, ettei kartanvalmistuksessa varsinkin 
piirtureita käytettäessä tarpeellista koordinaattipoh- 
j a i s t a tietoa synny. 

Tarvitaan siis uusi ohjelma, jotta mainittu koordinaattitiedosto ja myös 
tekstin sitominen koordinaatistoon tulisi mahdolliseksi. Sattumalta 
huomaisen italialaisessa M&P Computer-lehdessä Francesco Petronin hyvin 
sopivan ohjelman. Murre on vain makaronimaalaista, joten jouduin 
värkkäämään vähän pitempään ennenkuin sain ohjelman käyttöön. Siitä puuttui 
kuitenkin tekstitiedoston luonnissa tarvittava osa. Suomensin ohjelman 
taskusanakirjan ja kokeilun avulla sekä vähän muuntelin muutamissa 
paikoissa. 
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Ohjelman selostus: 

Ohjelman käynnistyksen jälkeen tulee esiin menu, josta voi valita 
tehtävän. Oletetaan, että valitset (1) ykkösen, joka on digitoinnin 
valmistelu. Tämä tarkoittaa, että voit valita digitoitavan alueen 
koon joko koko alueen tai osan laudan alueesta. Ensin on määritettävä vasen 
alareuna, ja sitten oikea yläreuna, jos asetat laudan niin, että taulun 
merkki on vasemmassa reunassa pystyssä. Tällöin o r i g o on vasen 
alanurkka. Riippuen tehtävästä voit valita pystyakseliksi joko X:n tai Y:n. 
Kartoissahan on x-akseli pohjoiseen päin, matematiikassa taas y-akseli on 
ylöspäin. Ohjelman voi muuttaa riviltä 690, jossa X%(I) ja Y%(I) 
määrittyvät. 

Jos akseleiden paikka vaihtuu, aiheuttaa se kuvan kiertymisen 90 astetta. 
Jbka tapauksessa saat selville, että yksikkö on noin 0.05 mm. 1 cm = 200 
yksikköä. 

Valmistelun jälkeen ohjelma palaa menuun, josta voit (3) :11a valita 
varsinaisen digitoinnin. Tällöin käytössä on viisi lajia: 

1. Piste on erillinen, jota käytetään aina kun pisteen ei haluta 
yhdistyvän viivalla edelliseen. 

2. Piste yhdistyy viivalla edelliseen pisteeseen. 

3. Alkaen näistä koordinaateista voit näppäimistöltä antaa tekstiä. 
Lisäksi voit määritellä kirjoitussuunnan ja tekstikoon. Ohjelma on 
laadittu Ulatanabe-piirturiin sopivaksi, jossa kirjoitussuunnat ovat 
pääilmansuuntiin ja tekstikokoja välillä 1...15 mm. 

U. Annetun edellisen koordinaatin korjaus. 

5. Digitoinnin keskeytys tai lopetus. 


Oletetaan, että lopetat digitoinnin. Ohjelma palaa menuun. Nyt voit valita 
koordinaattien tarkistuksen, tiedoston luonnin, kuvan kuvaputkelle 
piirtämisen tai tiedoston luvun välillä. Huvan piirtäminen 
kuvaputkelle on välttämätöntä, jotta voidaan varmistua 
perättäisten pisteiden oikeasta yhdistämisestä. Mittakaavan voit 
valita kun ohjelma sitä pyytää. Lisäksi voit määritellä kuvan paikan 
kuvaputkella antamalla kuvan nurkkapisteen koordinaatit. Jos ei ole 
tarvetta muuhun, valitse mittakaava 0.05, x=fl ja y=0. 

Hun olet näin varmistunut digitoinnin onnistumisesta, voit luoda 
tiedoston ja antaa nimen kysyttäessä. Jos kuvassa, jota digitoit, 
on asioita, jotka olisi edullista piirtää eri värillä, tai ne on muusta 
syystä tarpeellista erottaa, muodosta ne eri tiedostoiksi. 

ftjvassa (1) on esitetty menun paikka ja grafiikkataulun asento. Ohessa on 
myös muutama kuva saaduista tuloksista. 

Pienikaavaisen Suomen kartan digitointi ja piirtäminen piirturilla vie 
aikaa yhteensä noin 20 min. vastaava työ käsin tehtynä vie aikaa noin 
tunnin. Ajan säästö on kuitenkin suurempi, jos samasta kuvasta halutaan 
eri mittakaavassa olevia versioita. Yhdistelemällä eri 
tiedostoja samalta alueelta saadaan samoin nopeasti erilaisia versioita 
käyttötarpeen mukaan. 

Järjestelmän ongelma on, ettei tekstin sijoittaminen kuvaputkelle 
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piirrokseen ole helposti suoritettavissa. Samoin Applen ASCII-koodissa ei 
ole pieniä kirjaimia ii.' 

Järjestelmä on toimintaperiaatteiltaan aama kuin huomattavasti 
kalliimmissakin laitteissa, ja käy näin ollen opetukseen ja 
pienempialaiseen (suurin ala yhdellä kertaa 300 x 275 mm.) kartan 
valmistukseen. Piirustustarkkuus on samaa luokkaa kuin käsin piirrettäessä. 
Mittakaavan muuttamisen helppous on myös suuri etu. Etuna on myös 
ettei viivan leveys kapene kuvan pienetessä. 


PIIRTURIOHJELMA 


Ohjelman käynnistyttyä tulee esiin menu, josta voit valita 

1. Uusien koordinaattien anto näppäimistöltä 

2. Tiedoston luku levyltä 

3. Kuvan piirtäminen kuvaputkelle 
Pisteiden merkitseminen paperille 

5. Koordinaattien tulostus kirjoittimelle 

6. Tallennus levylle 

7. Koordinaattien yhdistäminen viivalla 

8. Koordinaattien korjailu 

9. Koordinaattien taulukointi piirturilla 
0. Miuta, esim. kuvien tekstitys 

Jos kyse on pienestä työstä tai vaaditaan suurta tarkkuutta voi 
koordinaatit antaa näppäimistöltä. Muutoin on paljon 
nopeampaa antaa tiedot grafiikkataululta. Pisteen 
koordinaattien lisäksi tulee ilmoittaa laji, yhdistetäänkö piste 
viivalla edelliseen vai ei, tai sijoitetaanko paikkaan tekstiä. 

Uatanabe-piirturissa yksikkö on 0.1 mm. Tästä johtuen on mittakaava- 
vakioksi otettu 10000, jolloin koordinaatit metreinä ja normaali 
mittakaavaluku. Grafiikkataulun avulla luodut kuvat tulevat alkuperäisen 
kokoisina mittakaavaluvulla n. 21100. 

Ohjelma edellyttää, että piirturi on slotissa 2, kirjoitin slotissa 1 ia 
grafiikkataulu slotissa 5. 

Mittakaava kuvaputkella on selvitettävä moni torikohtaisesti. Automaattinen 
mittakaavan valinta piirtää kuvan maksimikokoon, lilatanaben ROM-muistissa 
oleva ohjelma antaa mahdollisuuden merkitä pisteet paperille koordinaatti- 
ensa perusteella halkaisijaltaan 1...15 mm olevan kuuden eri 
merkin avulla. Lisäksi tulee kirjoitetuksi pisteen 
numero annetulla korkeudella. Tämä ohjelman kohta tekee helpoksi 
piirtää lapsille (aikuisille) pisteiden yhdistämistehtäviä leikkimieli- 
sessäkin tarkoituksessa. Pistenumero sijoittuu 
pisteestä ylös vasemmalle (luoteeseen) sen etäisyyden ollessa 
sidottuna tekstikokoon. 

Koordinaattien tulostus kirjoittimelle, voi olla 
tarpeen jatkdaskentaa tai maastoonmerkitsemistä yms. varten. Tämä osa ei 
tulosta nimistöä. Kirjoittimen merkistä yms. johtuen voi olla tarvetta 
lisätä tarvittavia komentoja (minulla oli käytössä vanha Olivetti). 

Lukeminen levyltä sekä tallennus levylle käyttää 
normaalia Apple DOS 3.3 käskykantaa. Tarvittaessa voi lisätä MON-käskyn, 
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jolloin näkee, mitä tulee milloinkin luetuksi. Jos koordinaattien listaus 
katsotaan tarpeettomaksi, voi sen tietysti poistaa. (TRACE -komento ennen 
ohjelman ajoa näyttää, missä ohjelmarivissä ohjelman suoritus kulloinkin 
on). 

l/iivan piirtäminen tapahtuu bJatanabessa 0.1 mm tarkkuudella. Kynän 
kiinnitystä olen hämmästellyt monesti. Tussikynän kiinnitys on hyvin 
hankalaa. Ennenkuin kytket laitteeseen virran, varmistu, että kynä on 
vasemmalla alhaalla. Katkoviivan muodostuminen 
riippuu pistetiheydestä niin, että katkoutumista ei esiinny lainkaan, jos 
pisteitä on tiheässä. 

Editointiosa on hyvin vaatimaton ollen tarkoitettu 
lähinnä muutamien harhapisteiden tai lyöntivirheiden korjailuun. Pisteen 
voi poistaa viivapiirroksesta antamalla sille samat koordinaatit edellisen 
kanssa tai antaa lajiksi yli kolmen. 

Koordinaattien taulukointi piirturilla tapahtuu 
piirturin koordinaatistossa, ensin pystyetäisyys alanurkasta millimetreinä 
kerrottuna kymmenellä. Sitten sama vaakasuunnassa. 

Kuvaan liittyvä teksti on omana ohjelmakohtanaan. Kone 
tutkii kaikki pisteet ja sijoittaa nimet antamis järjestyksessä paikkaan, 
jossa laji on kolme (3). Oh helppo tehdä virhe niin, että teksti 
on väärässä paikassa. Tekstikoko on sidottu mittakaavaan, ja sitä voi 
tietysti muuttaakin rivillä 1M0. 


Yleisenä toteamuksena sanoisin, että mikrotietokone on aivan 
riittävän nopea tähän tarkoitukseen, koska piirustusnopeuden 
määrää paljolti piirturi (kynänopeus) eikä Apple. Kuvaputkella saisi 
erotustarkkuus erityisesti pystysuunnassa olla parempi kuin 190. Lisäksi 
toivoisi värillistenkin viivojen toistuvan yhtenäisinä. 

Lähitulevaisuudessa luulisin saavani ohjelmaan parannusta nimistön 
tulostamisessa kuvaruudulle. 

Ohjelman laadinnassa olen tarvinnut lähteinä mm.: 

Micro & Personal Computer 11/1981 
Applen käsikirjat 

Microcomputing (Kilobaud) useita numeroita 

Uatanaben käsikirja 

Elektroniikkauutiset 

Maanmittausvuoslkirjat 

Aardvark technical services 

Ohio Scientific - käsikirjat 

Micro - lehti 

Applen myyjiltä ei apua eikä käytön opastusta ole ollut saatavissa. 

o o o 

Mikäli haluat ohjelman valmiina levyllä, lähetä tyhjä levy (tai 35 mk) 
plus postitusmaksu osoitteeseen: 

Aapi Juntura 
Viirinkankaantie 2k 
96300 ROVANIEMI 30 
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Menun si jomt tuninen grafiikkataululla 



2. Suomen kartta 230 pist- 
teen muodostamana* 



Tero Sand: 


KIELIKORTISTA HYÖTY IRTI 


Kieli/RAM kortin voi hankkia monesta syystä: jotta voisi käyttää Pascalia, 
saisi lisätilaa assembleria/tekstinkäsittelylaitetta/vlsiCalcia yrn. varten 
tai muuten vain saadakseen 16K omia tarpeitaan varten. Minä hankin sen 
Pascalia varten, mutta siinä kävi niinkuin kävi. Ei viitsitä aloittaa 
väittelyä Pascalilaisten ja ei-Pascalilaisten välillä, siitähän ei loppua 
tulisi. Aiheeseen palataksemme; minä jätin sen koneeseen, sillä nykyisten 
kaupallisten ohjelmien kiivetessä RAM/kielikorttiin on turha olla ilman 
sitä. 

Ongelmana vain on, että mikäli haluaa käyttää toista BASICiä, joutuu yhä 
useammin käymään SYSTEM MASTER levyllä ladatakseen puuttuvan BASICin 
toisen ohjelman jyrättyä sen alleen. Pidemmän päälle tämä ainainen SYSTEM 
MASTERilla käyminen käy ennen pitkää hermon päälle, sillä parhaimmillaan 
joutuu tämän renkutuksen tekemään moneen kertaan, ennen kuin työ on tehty. 

Onneksi ratkaisu on olemassa, nimittäin siinä tapauksessa, että olette 
joskus ostaneet, vaan ette myyneet BASIC-korttia. Toukokuun Call - 
A.P.P.L.E. :n numerossa olleessa artikkelissa näytetään miten kyseinen 
temppu tehdään. 

Dossissa on kaksi muistipaikkaa, joissa säilytetään BASIC-kortin slotti- 
paikat, $A5BB jossa tavallisesti on 60 ja A5CD jossa on 81. Nyt vain 
valitaan sopivat paikka, ja muutetaan kyseiset paikat slotteja vastaaviksi: 
$80 on 0, $90 on 1.. $T0 on 7. Tietenkin se pieni vipu kortin selässä estää 
kortin käytön muualla kuin 2 tai <*:ssa. 

Seuraavaksi tulee lyhyt konekielinen ohjelma, joka tarkistaa, onko 
BASIC-kortti slotti 4:ssa ja jos on, muuttaa DOSsia niin, että se sen 
huomaa. Tämä rutiini olisi hyvä kutsua SYSTEM MASTERin HELLO-oh jelman 
alussa ENNEN kuin se lataa jomman kumman kielen expansiokorttiin, ja mikäli 
harduare-korttia ei ole, antaa ohjelman ladata puuttuvan BASICin. 


Markku Siivola: 

PULISTA PUDONNEITA 
eli 

viimeksi varisseita 


Apple II :n kopiointivyöry näyttää alkaneen. Täyteen mainosvauhtiin on 
Yhdysvalloissa päässyt kaksi konetta: länsisaksalainen BASIS 108 ja 
amerikkalainen FRANKLIN ACE 100. Niissä on enemmän ominaisuuksia kuin Apple 
II:ssa. Esim. ensinmainitussa on mm. jo valmiina Z80-prosessori ja 6^H RAM, 
numeerinen näppäimistö, valinnainen tai 80 kolumnin tekstinäyttö ym. 
Suomessa sitä myydään hintaan 21900 mk. Jälkimmäinen maksaa $1595. 
Pearcomilla, Englannissa 875 puntaa maksavalla Applekompatiibelilla 
koneella, näyttää olevan kansainvälinen markkinointikeskus Hollannissa. 
Englantilaista alkuperää on Applekompatiibeli Acclaim, johon kuuluu 
Winchester ja lerppu. 

Näitä kaikkia mainostetaari täysin Applekompatiiöeleina, mutta aivan täysin 
ei asian tarvitse niin olla. Esim. Basis 108 :n nykyversio numero 2:ssa ei 
toimi ainakaan 6809-kortti. 
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Kaukoidässä on kuulemma useita Applen kopioita tekeillä ja Apple Computer 
Inc. harkitsee niille samaa kohtelua kuin em. Franklinin taistoille eli 
lakitupaan haastamista. Franklin tästä hermostuneena vaatii nyt Applelta 50 
miljoonaa dollaria syyttäen tätä monopolisoinnista ja kiistää 
patentinloukkaussyytteet. 

Kauppalehti 19.8.82 numerossaan kertoi Apple Computer, Incin Euroopan 
suhteiden johtajan Terry Adamsin haastelleen kolmesta uudesta mallista* 
kalliista Lisasta, jonka käyttä jäystäv/ällisyydestä johtuen sen kanssa tulee 
sinuiksi 20 minuutissa, sen "kansanversiosta" ja viimeksi Super II:sta eli 
Applen 11-piirisestä nuoremmasta veljestä Grand Old Manin (Ubmanin?) 
omatessa niitä vielä 136 kpl. Arvelevat tämän tuella Applen säilyvän 
vanhana kunnon työmuulina vielä ainakin toiset viisi vuotta. Nykyään sitä 
myydään 20000 kappaleen kuukausivauhtia. 

Saapa nähdä pitääkö Apple edelleen kiinni äsken julistamastaan koneidensa 
postimyyntikiellosta kun nämä muut leviävät markkinoille. 
Postimyyntikieltoakin kierretään siten, että rekisteröidyt jälleenmyyjät 
tilaavat suuria eriä, joista saavat paljousalennuksen, sitten myyvät 
ylimäärän edelleen "villeille" jälleenmyy jille, jotka kaikessa rauhassa 
postimyyskentelevät ne edelleen. Apple Computer, Inc. on käynyt salaa 
ostelemassa näitä villejä koneita jäi jittääkseen sar janumeroiden 
perusteella kurittomat jälleenmyyjänsä ja onkin jo sanonut irti muutamia 
sopimuksia. Moinen touhu on ennättänyt siellä täällä herättää io pahaa 
verta. J K 

Luurankomalle jakin näyttää ilmaantuvan. "Bare Bones" tarkoittaa Applea 
ilman näppäimistöä ja verkkolähdettä. Myös Pearcom näyttää myyvän omia 
luurankojaan. Eräs firma mainostaa Appleen erillistä 220 V virtalähdettä. 

Yhdysvaltain 10 suurimman kaupungin 165 tietokonekaupassa myytiin Applea 
120:ssä, Ataria 60:ssä, HP:tä i»3:ssa, IBM:ää 36:ssa, Commodorea 37:ssä. 
hunnilla sitten muita, kuten Radio Shackin TRS-tuotteet. Apple on siis 
ylivoimaisesti laajimmalle levinnyt. Japanilaista NECriä myytiin vain 
kuudessa paikassa ja yhdessä Sharpin konetta. 

Commodore johtaa vielä niukasti Euroopan myyntiä 32 prosentin viime vuoden 
osuudellaan, joka merkitsee 6 prosentin laskua edellisvuodesta, kun Apple 
taas on kivunnut 17 prosentista 26 prosenttiin. TRSillä menee entistä 
heikommin. 


Appleen sopivaa kovatavaraa näyttää tunkevan markkinoille yhä tiiviimpään 
tahtiin. Applen 35 trackin lerppulevyasemien hinnat näyttävät yleisesti 
pudonneen &0G :n alle (ilman kontrollerikorttia), ja ainakin kahta mallia 
jo myydään alle $300. Toisessa niistä on enemmän tilaa (160K) kuin Applen 
omassa drivessä. Call-A.P.P.L.E. ennakkomainostaa omaa "ultramodernia, 
ultrahiljaista" driveään, jonka hinta "saattaa rikkoa $300:n rajan", Viiden 
^ajyten kovalevyasemaa kontrollerin kera näyttää olevan myynnissä hintaan 
$1300 (kit) .' Muutenkin kovalevyjä myyskennellään Appleen ties jo kuinka 
monen firman voimin $2000 : n kieppeillä. 

Useita 16K ekspansiokortte ja myydään jo alle $100, halvinta hintaan 
$69, kittinä $50.' 16K RAM-Usämuistisar jaa myydään hintaan $12.95.'.' 
Mammuttikortit ovat myös nousseet joukolla maihin. 32K ja 64K - kortit 
alkavat olla pian historiaa nekin, kun 128K, 1*+7K, 29^+K ja 320K 
laajennuksia jo saa. Toiset niistä toimivat diskiemulaattoreina, toiset 
mainostavat 12BK - kortin VISICALC-nivelty vyy ttään mitä nopeimmin 
latausajom (25<* rivin ja 30 kolumnin eli maksimisuuruinen VISICALC 
latautuu 20 sekunnissa'). Call-A.P.P.L.E. iskee jälleen, ja myy esim. em. 
29<4K tupladrivenä toimivaa korttia hintaan $675, muualla on hinta $950. 
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16K RAM kortteihin on alettu liitellä kaikenlaista muutakin kuten 
Z-80-prosessoreita ja printteribuff ereita. 

Applesoftia nopeuttaa AD 8088 $345 kortti - ja tietenkin Applesoft 
compilerit, joista Applesoftin tekijäfirman Microsoftin TASC on paras. 
Kaikkia Applesof t-oh jelmia ei kuitenkaan voi niillä compailata. 

Kiintoisalta vaikuttaa myös juuri Applenkin markkinoille tulossa oleva 
Microcache, joka pystyy älykkäästi tarkkailemaan, mitä dataa, filejä ja 
pehmoja käytetään useimmiten, jolloin se siirtää nämä osat erilliseen 
64 K - 1 Megabyten suuruiseen RAMiin, jolloin ohjelmat nopeutuvat 5 - 100-, 
jopa 500-kertaisesti. Se on käyttäjälle läpinäkyvä eikä vaadi muutoksia 
alkuperäiseen laitteistoon. 


APPLE PUGETSOUND PROGRAM 
LIBRARY EXCHAGE 


Qi taas aika muistuttaa A.P.P.L.E.n eli Apple Pugetsound Program Library 
Exchangen olemassaolosta. Se on maailman laajin (yli 13000 jäsentä) Applen 
käyttä jäklubi, joka näyttää pystyvän tarjomaan jäsenilleen - ja vain heille 
- korkeatasoisinta saatavilla olevaa teknistä tietoa ja softuarea. 

Kuten tästäkin Onenahy veestä käy ilmi, myy se nykyään myös harduarea sangen 
edullisesti, mutta silloin postitusosoitteen pitää olla Yhdysvalloissa - 
syystä, josta meillä ei ole tietoa. Myös muunlaisia erikoistarjouksia se 
näyttää harrastavan, kuten esim. PEELINGS II :n tilaustarjous sangen 
halvalla ja S0FTALK - lehden saa koko vuodeksi ilmaiseksi.' 

Jos liittyy A.P.P.L.E.en jäseneksi ennen tämän vuoden lokakuun loppua, saa 
viime vuoden kaikki Call-A.P.P.L.E.n numerot kaupanpäällisiksi, mutta vain 
niin kauan kuin heillä varastoa riittää - jonka suuruutta emme tiedä. 

Liittymismaksu on $25 ja vuosimaksu $20, johon tulee vielä lisäksi Call - 
A.P.P.L.E.N ulkomaan postituskulut $21/vuosi, yht. siis $66 ensimmäisenä 
vuonna. Liittyä voi esim. postikortilla: 

A.P.P.L.E. 

304 Main Ave.S., Suite 300 

Renton, UA 98055 

USA 

"I uould like to join A.P.P.L.E. Please 
send me the necessary Information. 


Paavo Meikäläinen 
99900 Saarijärvi 
FINLAND 


(Tai vdi käydä ostamassa pankista $66 shekin ja lähettää sen em. 
tekstin ohella. ) 
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MIKÄ DN IAC? 


IAC on INTERNATIONAL APPLE CDRE, kansainvälinen käyttöjä järjestö jen 
katto-organisaatio. Sen johtokuntaan kuuluu tällä hetkellä kahdeksan 
henkilöä USA:sta, yksi Kanadasta, Euroopasta ja Australiasta. Euroopan 
edustaja on Wolfgang Dederichs, osoite Auf Drenhausen 24320 Hattigen, West 
Germany. IAC:hen kuuluu hieman alle kolmesataa käyttäjä järjestöä. 
Appleklubi on nyt yksi niistä. Eksoottisimmista käyttä järjestömaista 
mainittakoon Australia (12 klubia. 1 ), Brasilia, Colombia, Hong Kong (2), 
Indonesia, Japani (3), Nepali, Malesia, Uusi Seelanti (2), Filippiinit, 
Etelä-Afrikka (2), Venezuela ja Jugoslavia. 

IAC pyrkii toimimaan niin käyttä jä järjestöjen kuin Appleen liittyvän 
teollisuudenkin välisen eri suuntiin virtaavan informaation solmukohtana. 
Vain käyttäjäklubit, kuten Appleklubi, voi kuulua siihen täysjäsenenä (full 
membership). Täysjäsenet saavat IAC:n painotuotteet (Appleklubille tuli 
muuten kerralla 300 sivua yleisinfoa, sovellutuksia, listauksia, 
harduaremodifikaatioita jne. Käykää tutustumassa. 1 ). Lisäksi ne saavat 
kuukausittain Public Domain-diskin. Vastaavasti käyttä jäklubien toivotaan 
lähettävän parhaat palansa IACrlle, joista se sitten koostaa em. diskit. 

Appleteollisuuden edustajat - joko organisaatiot tai yksilöt - voivat olla 
$200 maksulla sponsori jäseninä, jolloin ne saavat IACrltä ajankohtaista 
feedbackia ja tiedottavat vastavuoroisesti uutuuksista, parannuksista, 
erityissovellutuksista, korjauksista jne. IACrlle. Niitä on kolmisenkym- 
mentä kappaletta. Meille tunnetuimmat lienevät itse Apple Computer, Inc., 
Apple Europe, Corvus Systems, Inc., Hayes Microcomputer, verbatim 
Corporation ja Xerox Retail Division. 

Koulutus-, kasvatus-, tutkimus- ja hyväntekeväisyysjärjestöt voivat 
maksutta saada Associate Membershipin, jolloin ne saavat IACrn painetun 
materiaalin, eivätkä ole oikeutettuja äänestämään. 

Erityisryhmiä on IACrllä nyt kuusi: Education, Ham Radio, Handicapped, 
Languages, Legal, Medical. 

IAC julkaisee kuudesti vuodessa APPLE ORCHARD - lehteä, jota Appleklubi on 
ehtinyt saada vasta pari kappaletta. Levikki on nykyisin puolensadan- 
tuhannen tienoilla. 

Mainittakoon vielä lapuksi IAC:n ja Apple Computer, Inc.:in välinen sopimus 
APPLE TECH NOTES: ien julkaisusta 450-sivuisena rengaskirjana, joka 
käsittelee sekä soft- että harduarekysymyksiä kuten ohjelma- ja 
laitemuunnoksia ja korjauksia. Tätä teosta uudistetaan neljännesvuosittain. 
Ityös Appleklubi tulee saamaan tämän teoksen oletettavasti tämän syksyn 
aikana. Sitä tulee saamaan myös Applen jälleenmyyjiltä ohjehintaan 
$64.95. IAC tarjoaa jäsenklubiensa jäsenille kirjaa $7.50 alennuksella. 
Kyselkääpä myöhemmin syksyllä, olemmeko saaneet tästä lisätietoja. 


O 


Kaiken kaikkiaan näyttää IAC siis olevan sangen laaja ja ajan mittaan yhä 
merkittävämpi tuki ja taustavoima jäsenjärjestöilleen ja niiden kautta 
tietysti myös niiden yksityisille jäsenille. 
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Markku Siivala: 


KONEKIRJOITUS JA PAINANTA 


ENSIWÄINEN NÄYTÖS 

Kannetaan Apple 11+ köyhänä, mutta onnellisena kotiin. Viihdytään 
turvallisen Applesoftin parissa (anteeksi, Integervel jet) muutama viikko. 
Tehdään omia ohjelmia ja tutkitaan muiden. Aletaan kiusaantua PEEKeistä, 
POKEista ja CALLeista. Ruvetaan näkemään niistä unta. Onko Applesoft 
pinnallista aristokratiaa, kaukana sieltä, missä The Action Is? Huomataan 
Applesoft Manualin Appendix J ja kiinnostutaan asiaan todella. Kokeillaan 
arasti POKE 33,3 ja huoataan: "Tähän ei Applesoft pystyi" Kiinnostutaan 
konehuoneesta entistä enemmän. Kirjoitetaan rohkeasti CALL -151 ja mennään 
sinne itse, eikä tyydytä PEEKien toisen käden tietoihin. Ihmeellinen 
maailma avautuu: 300: A9 C1 20 JSR JMP NOP ED FD 0D06-E<* (EE) LDX 4f$02 N 
<*A-C=3E 30K300.31FV/. 

Yritetään kainosti itsekin CALLia. Kursori häviää ja pahaenteinen 
hiljaisuus laskeutuu Applen ylle... RESETkään ei toimi... perrr... - Uusi 
yritys: 

OQEA- A=00 X= 01 Y=DB P=32 S=EA 

Havaitaan vähitellen, että moisesta ripellyksestä on todellista hyötyäkin. 

Innostutaan Mini-assemblerista. Epäillään bugia omassa koneessa kun ei sitä 
löydy, vihdoin havaitaan alaviitteiden tärkeys, kuten Apple Reference 
Manualin sivulla 49. Tullaan hiukan katumapäälle kun ei kallista 
Integer-korttia ostettu, mutta huojennutaan vanhemman Appleveljen 
haukkuessa sen pystyyn. 

Tehdään hieno reaction tester-* tai kello-ohjelma Mini-assemblerin kera tai 
ilman, rtjomataan yhden byten puuttuvan ohjelman alusta. Siirretään koko 
loppuosa käsin ylemmäksi muistissa. Tehdään sama virhe vielä kahdeksan 
kertaa. Tarjotaan vihdoin tuotetta ehkä aivan jälleenmyyjällekin, ja 
poistutaan takaperin myyjän mutistessa jotain sadannestakymmenennestä 
aloittelijoiden tarjoamasta testeristä. Vaivutaan epätoivoon. 


TOINEN NÄYTÖS 

Kuullaan Appleklubista ja liitytään siihen. Noustaan epätoivosta. Tajutaan, 
että ollaan tehty paljon turhaa työtä. Ostetaan BIG MAC joko kieli- eli 
ekspansiokorttiin tai "tavalliseen" muistiin latautuvana ja puuhaillaan 
onnellisena sen kanssa. Kerrotaan seniorivel jellekin Appleklubista. 

Bytetaso alkaa vähitellen kyllästyttää. Havaitaan, että sanoilla 

"top doun programming" on merkityssisältöä. Byteajattelu vaihtuu 

modulia jatteluksi. Ostetaan kirjallisuutta (katso edellinen jäsentiedote) 

ja aletaan luottaa muiden Bpuun. Mietitään, mitä moduleita ensiksi 

tarvittaisiin. 

Luetaan syyskuun 1962 OMENAHYVE ja löydetään artikkeli KONEKIRJOITUS JA 
PAINANTA. Havaitaan, että siinä on esitetty ensimmäiset konemestarin 
kikkapussiin kuuluvat modulit: 
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PRINTSTRING, CHRIN ja MSGIN 


PRINTSTRING on mitä kätevin konekielisen viestin ilmaisuväline. Tiedotteen 
lopussa oleva assembly on BIG MACin jälkeä. Mikäli ei omaa BIG MACia tai 
muuta assembleria ole, voi kirjoittaa vasemmassa kolumnissa olevan hex 
dumpin eli ensin konehuoneeseen CALL -151 ja sitten 300:20 21 03 8D C1 CC 
C1 jne. 3SAVE KIRJOITUS JA PAINANTA, A$300, L103. Sen jälkeen vain 300G tai 
Applesoftin puolelta CALL 768 ja viestiä syntyy. 

Sen jälkeen astuu kuvaan CHRIN, joka toimittelee näpyttelijän 
8ielunleiskahduksia ruudulle ihan reaaliajassa Applesoftin 255 merkin 
rajoituksia tuntematta, varoituspiippaamatta ja rivinperuutusmerkke jä 
kirjoittelematta. 

MSGIN on mukana muuten vain, ja sen tutkiminen jätetään lukijalle. 
Kaikkien selityksiä on kuitenkin terveellistä tutkia. Tutkiminen ei 
kuitenkaan oikein suju ilman kirjaa UHAT ' S UHERE IN THE APPLE (katso 
edellinen tiedote) monien RDMniin viittaavien subrutiinien vuoksi. 
Kyseisestä kirjasta löytyy lyhyesti luonnehdittuna ko. rutiinien 
sielunelämä. - In Action-seuraamiseen tarvitaan tietysti debugger, ioko 
SYMBOL SYMON tai vastaava. 

I^mä rutiinit ovat relokoituvia eli ne voi sijoittaa koneen muistiin sinne, 
missä tilaa löytyy. PRINTSTRINGissä on kuitenkin huomattava, että mikäli se 
siirretään "käsin" eikä assemblerilla, on rivin V7 osoite korjattava 
oikeaksi. Sen on osoitettava aina INC TEMPiin, joka on rivillä ^0. Tässä 
tapauksessahan rivin UI hyppyoscite on $0329 eli Applesoftin konvention 
mukaan ilmaistuna 29 03, joka onkin juuri INC TEMPin INC-osan osoite. Muut 
rutiinit toimivat sellaisenaan missä tahansa. Edellisessä jäsentiedotteessa 
on ohjeet, miten liimailla konekielipätkiä Applesof tiin. PRINTSTRINGistä 
on tällöin muistettava korjata em. osoite käsin, mikäli muuttaa 
Applesoft-osan pituutta liimauksen jälkeen. 


RUUTUPAIN0 


Ohjelmien listaus käy helposti melkein millä printterillä tahansa. 
Eurooppalaisten printterien poikkeavat erityismerkit amerikkalaiseen 
käytäntöön nähden tuottavat kyllä päänvaivaa. Niinpä tämänkin tiedotteen 
joissain listauksissa on numero kolmosen päällä näppäimistöllä sijaitseva 
numerohäkkyrä piirretty jälkikäteen käsin. Tähtimerkki on toinen ongelmia 
tuottava. 

Listaukset siis saa, mutta ilman erityisohjelmaa ei ruudulla näkyviä 
printtaustuloksia enää saakaan. Tiedotteen lopussa on kolme tällaista 
ohjelmaa, kaksi ensimmäistä Applesof tilla, jotka voi kirjoittaa esim. oman 
ohjelman perään tai tehdä text fileiksi, jotka sitten EXEOcaa tarvittaessa. 
Kolmas ohjelma on lyhennelmä David Walkerin Call -A.P.P.L.E. :n numerossa 
Febr. 1982 olleesta ohjelmasta, joka latautuu automaattisesti HIMEM: in alle 
ja laskee sitten HIMEM: in itsensä alapuolelle. Tämä lyhennelmä latautuu 
tuonne vakiopaikalle $300:aan, josta CALL 768 sen BASICin puolelta 
tavoittaa. Jos printteri on muussa slotissa, niin sitten vain basicilaiset 
PR:t tai koneohjelman rivi 19 ykkösestä ko. numeroon. Assembleria 
omaamattomat katsokaa tämän sivun yläosasta, miten koneohjelmat naputellaan 
muistiin. Sitten BSAVE TEXT SCREEN DUMP, A$300, L10i* 
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MARKKINAPAIKKA 


teyttavät klubilaiset vielä rakastavan sen verran alkuperäisiä laitteitaan, 
ettei osto/myynti/vaihtotarvetta ole klubin tietoon juuri tullut. Tämä 
osasto on kuitenkin sitä varten ja ihan ilmaiseksi. 

täyttävät amerikkalaiset firmat löytäneen Appleklubinkin IAC:n kautta.. 
Tahan mennessä on tarjottu yli jännitekurista jia hintaan $81.50 
postimaksuineen (puheenjohtajan koneen hajoitti muuten salama viime 
kuussa), tasku- ja seinäreferenssikortteja Applen muistista ja 
toiminnoista, kuukausittaisia uusia ohjelmia hiukan suomalaisten 
kirjakerhojen tapaan sekä ohjelma-antikvariaattia ($2 :11a voit myydä vanhaa 
ohjelmaasi sen myyntipalstoilla. $3 lisää ohjelmasi palautuksesta, jos ei 
mennyt kaupaksi). Se tarjoaa myös muutamia aatoja eri firmojen ohjelmia 
huomattavastikin alennettuun hintaan, mutta toisaalta sangen moni 
softiBmyyjä ilmoittelee tavallisimmissa lehdissä (Byte, Nibble, 
Microcomputing, Call-A.P.P.L.E. jne) alennusmyynneistään, joista löytää 
hyvää tavaraa halvalla. Kysele halutessasi tarkemmin toimistosta. 

Katso myöa, mitä IAC- jutussa sanotaan Apple Technical Notes 'eista. 

o 

EPROM 2716 ohjelmoijan rakentelusta kiinnostuneet ottakaa yhteyttä Esa 
Elf iin, Korvenranta 50 A 7, Rovaniemi, p. 991-16160 koti tai 1<*101/Elektro- 
niikkalinja. Kortti toimii myös Motorolan PIA-piirien kautta kahtena 
kahdeksan bitin porttina. Basic-oheisohjelmistoa on hänellä myös, joilla 
voi sitten suunnitella itselleen omia haihtumattomia utilityjä, 
videogeneraattoreita ja muuta sellaiata. 

KONTUA OY, Helsinki, myy EPSON MX 80:een värinauhoja hintaan U3 mk/kpl. 

SSSSS== S rSS= = SSrSSSSSS S rSS8SStS2SSS5SS5=»2SS=== S SSSSSSSS55SrS5S=SSSSSSS3SSS 

LAINAUSPALVELU 

Niin hyviä ja jaloja kuin me kaikki Applekluhilaiset olemmekin, vaivaa 
sangen monia meistä eräs ns. kuulakynäkulttuurin lieveilmiöistä. Kuten 
kuulakynät, tahtovat myös painotuotteet jäädä lainaajansa pysyväis- 
omaisuudeksi. Heittäköön se ensimmäisenä Appleklubia kivellä, joka tässä 
suhteessa on aina ollut synnitön.' 

Koska klubin lehdet ovat ainoita ref erenssikappaleita, joita on vaikea, 
ellei mahdoton hankkia uudelleen, on klubi innokkaille lainaajilleen 
sanellut seuraavat ensi näkemältä kovalta tuntuvat, mutta tarkemmin 
ajateltuna ymmärrettävät ehdot: 

Klubille tulevia lehtien, nykyään PE EL INGS II :n ja International Apple 
Coren julkaisemaa Apple Orchardin numeroita saa lainata IDQmkAappale 
Klubin postisiirtotilille TA 3066 98-0 maksettavaa takuumaksua vastaan. 
Mikäli tilaa niitä postitse, vähennetään takuumaksun määrästä 10mk/postitus 
lehtien määrästä riippumatta. Viimeisintä numeroa ei ennetä lainaksi. 
Laina-aika on kolme viikkoa lukien lähettämispäivämäärästä palautuspäivä- 
määrän postileimaan. Tämä aika riittää hyvin lehden aktiiviin tutkimiseen. 
Takuuraha lähetetään sitten takaisin, mikäli ei halua pitää ko. summaa 
jatkuvana takuurahana tai ostaa aillä Appleklubilta esim. PO-diskejä. 

Mikäli palauttaminen myöhästyy 1 vrk - 3 viikkoa, palautetaan takuumaksusta 
vain puolet. Mikäli palautus myöhästyy yli kolme viikkoa, ei takuumaksua 
palauteta lainkaan. 
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PUBLIC DQMAIN 


Alla uusien Rjblic Domain-ohjelmien luettelo. PD-diskejä on klubille 
yhteensä nyt 15. Katse edellisestä lehdestä aikaisempi luettelo. Ohjelmien 
runsaudesta johtuen ei klubi ehdi tutkia niitä kov/in syvällekäy västi ja 
selitellä niitä juuri ao. catalogia kummemmin. Niitä saa muutella vapaasti. 
Niiden pitäisi olla virheettömiä, mutta kukaan ei mene siitä takuuseen. Jos 
koko diski sattuu olemaan viallinen, lähettäkää se maksutta uusittavaksi. 
Parannelkaa, poistakaa mahdollisia löytämiänne virheitä, kirjoittakaapa 
vaikka pieni kommentti tai juttu jostain erikoisen hyödylliseksi 
havaitsemastanne ohjelmasta, ja lähetelkää takaisin Appleklubllle, niin 
työnne koituu muidenkin hyödyksi. 

Toimitus/postimaksu per levy 10 mk ynnä levyn hinta 35 mk (tai 
vaihtoehtoisesti lähettäkää tyhjä levy) maksetaan Appleklubin 
postisiirtotilille TA 3066 98-6. Lisätietokohtaan merkittävä, mitkä 
PD-diskit haluaa. 
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MANN WHITNEY U TEST 

174 

A 

22 

MATH DRILL III 

174 

A 

19 

MATH MULTIPLY DRILL 

174 

A 

19 

MATH->NEEDS WORK 

174 

A 

13 

MATRICES 

174 

A 

4 

MATRIX INVERSION I 

174 

A 

4 

MA TR IX MULTIPLICATION 
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ID* CL T SI2 FILENAME 


174 

A 

4 MATRIX OPERATIDM SIMPLE 

214 

A 

174 

A 

4 HE AN VÄRI STOR DEVIA I 

214 

T 

174 

A 

7 MULTI PL E LINEAR REGRESSION 214 

A 

Mk 

A 

4 N0S94AL DISTRIBUTIOM 

214 

A 

MU 

A 

6 NTH ORDER REGRESSION 

214 

E 

MU 

A 

4 NUfCER CQMBINATIONS 

2U 

A 

MU 

A 

2 PARABOLA PLOT 

214 

I 

MU 

A 

7 PERMUTATION COMBINATION 

II 214 

A 

MU 

A 

3 PERMUTATION COMBINATION 

I 214 

B 

MU 

A 

3 POISSON OISTRIBUTION 

214 

T 

MU 

A 

6 POLAR EQUATION PLOT 

214 

A 

MU 

A 

11 PÖLYTIT 

214 

T 

MU 

A 

13 POLYNOMI AL REGRESSION 

2U 

A 

MU 

A 

6 POUER CURVE FIT 

214 

A 

MU 

A 

6 PRIME FACTORS II 

214 

B 

MU 

A 

3 PRIME FACTORS I 

214 

A 

MU 

A 

3 QUAORATIC FORMULA 

214 

A 

MU 

A 

6 QUADRATIC SURFACE 

214 

I 

MU 

A 

15 RIGHT TRI ANO. E SOLVER 

214 

A 

MU 

A 

5 ROOTS OF POLYNOMIALS 

214 

A 

MU 

A 

5 ROOTS OF POLY HALF 

214 

A 

MU 

A 

16 ROOT FINDER 

214 

T 

MU 

A 

4 SIMPSON* S RULE 

214 

A 

MU 

A 

4 SIMULTANEOUS EQUATIONS 

214 

A 

MU 

A 

3 TRAPE20IDAL RULE 

214 

A 

MU 

A 

5 TRIANGLE FACTORS 

214 

A 

MU 

A 

7 TRIANGLE PARTS 

214 

A 

MU 

A 

3 TRIG POLYNOMI AL 

214 

A 

MU 

A 

4 T TEST 

214 

A 

MU 

B 

2 T TEST.X 

214 

A 

MU 

A 

4 VECTOR ANALYSIS 

214 

A 

MU 

A 

3 VECTOR OPERATIONS 

214 

A 

214 §§ § 

C-A: PO 214 

214 

A 

214 §* 3 

097 FREE SECTORS - VOL 254 214 

B 

214 

A 

5 AAA MESSAGE 

214 

A 

214 

A 

3 AAA UTILITY 214 

214 

A 

214 

A 

3 ALPHABETI2E 

214 

A 

214 

A 

3 APPEND F ILE 

214 

A 

214 

A 

2 AUTOBOOT 16 

214 

A 

214 

B 

4 AUTOBOOT 16. X 

214 

A 

214 

I 

43 BASIC- APPLESOFT 

214 

A 

214 

A 

5 BSTAT HOU TO 

214 

A 

214 

A 

2 BSTAT II 

222 §§ § 

214 

A 

3 CATALOG SORTER 

222 §! 

K 3 

214 

A 

3 COMMAND GENERATOR 

222 

A 

214 

B 

2 COMMAND GENERATOR. X 

222 

A 

214 

A 

2 CQMP-X MONI TOR (C) 

222 

6 

214 

8 

16 COMP-X MONI TOR. X 

222 

B 

214 

A 

6 OEBUGGING AIO 

222 

I 

214 

A 

4 DECIMAL POINT 

222 

I 

214 

A 

5 DOS COMMANO FINDER REV 

222 

B 

214 

A 

4 DOS COMMAND FINDER 

222 

B 

214 

A 

12 DOS SHORT COMMANDS 

222 

A 

214 

B 

2 DOS SHORT COMMANDS. X 

222 

A 

214 

B 

2 DOS SHORT. RESTORE 

222 

A 

214 

A 

14 DUMP TRACK AND SECTOR 

222 

A 
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13 EXEC F ILE GENERATOR 
2 EXEC FILE 

5 FREE SECTORS DOS PATCH 
2 JUMP POINTS DOS 3.2 

2 JUMP POINTS DOS 3.2. X 

4 LIBRARY INPUT CORRECTOR 
17 LIBRARY REVIEW INPUT 

19 LIBRARY REVIEW 

6 LIBRARY REVIEW. X 
9 LIBRARY 1 

5 LITERAL INPUT 

2 LITERAL 

4 LOMEM HIMEM AB 

6 MEMORY AVAILABLE RAM ONLY 

4 MEMORY CHECK 6502 

3 MEMORY CLEAR 

3 MOTOR SPEED DOC 

8 MOTOR SPEED 

7 NAMES FILE CREATE 

5 NAMES FILE EXCH 
7 NAMES FILE READ 
2 NAMES 

5 PRINT USING II 

4 PRINT USING I 

4 RECOVER LOST FILES 

5 REMOVE STRING SPACES 

12 SORT NUM8ERS WOODRUM 

9 SORT QUICK ALPHA 

6 SORT QUICK NUMBER 
5 SORT WORDS II 

5 STRING REVERSE FUNCTIDN 

7 STRING SAVE DEMO 

9 SUPER CATALOG BUILDER 

2 SUPER CATALOG BUILDER. X 
5 SYSTEM CONFIGURATION 

4 TAPE RECALL DATA 

4 TAPE STORE DATA 

3 THROTTLE 

5 TOKEN ADDRESS TABLE III 

4 TOKEN ADDRESS TABLE II 

6 VARIABLES DISPLAY 

13 YES NO AND ,PAUSE 
C-A: PD 222 

098 FREE SECTORS - VOL 000 

5 AAA MESSAGE 

3 AAA UTILITY 222 
13 ASCII PRINTER DRIVER 

2 ASCII 

5 BAUD RATE ADJUSTMENT 

3 BAUD RATE 

2 BAUD RATE.X 

2 DRIVER A768 L176 

2 EPSON CATALOG DBL STRIKE 

2 EPSON GREETING 

2 EPSON LOWER CASE 

3 EPSON MX80 CATALOG 


IOi CL T 

SI7 FILFNAMF 

P A» D<snr«ni in. 

l-m: rascal »U: 




222 

A 

J u~3Ul» rlAOU ULHU I 

ppc prTTur TCVT 

LLb. bt i Int. TEXT 

1h 

2 

-JAiM-81 

222 

A 

/ CPOUIv rlAOU ULHU C 

CTornoT tcvt 
bl Kr Un 1 . TcXT 

6 

6 

-JAN-81 

222 

A 


Pl nPUIMfUTT TrVTT 

LLULnUlMl 1 . f La M 

6 

6 

-JAN-81 

222 

B 

"Vi fpc/tn mxap. i oafi ptt 

cromv rlAOU LMOLL«rlL 

Pi uiiMTi 1 rnr\r 

H 

2 

-JAIM-81 

222 

A 

1 FP^nw MXAP 1 FTTFRuFfln 

J t.rgun riAOU LL 1 1 LnntHU 

ppc nnp tcvt 
LLb. UUL. ILa 1 

6 

13 

-FEB-81 

222 

A 


CTADTliO TCVT 

b i Mn 1 Ur. 1 La i 

H 

li» 

-FEB«81 

222 

A 

pTt FP^niAJ M v An RFMTiMnFR pqi Fwn 
c.J LroutM nAOU nC.nl nIULn LHLLIMU 

Dl flTTCD TCVT 

rLU 1 1 LH. »La 1 

20 

3Q. 

-SEP-79 

222 

A 

Fpcnw M v An qftiip 

rncuorr tcvt 
LMbnncb. 1 La 1 

10 

12-MAR-81 

222 

A 


ruflornTT TCVT 
LnHncUl 1 • 1 La 1 

2h 

12-MAR-81 

222 

B 

9 UAL ftRTMFR flPMfl Tl 

Fl li i m IDI CV TCVT 

rULLUUrLLA. icaI 

8 

1-FEB-81 

222 

B 

9 Hik DRTV/FR *"*nn 

CVCPCIU TCVT 
OTObCIV. i LA 1 

r 

b 

1-FEB-81 

222 

B 

9 U1L f)R TI/FR *"*QPi 

CTl ID TCYT 

b I Ur • 1 La i 

H 

1- 

-FEB-81 

222 

B 

9 hil ddti/fr tonn 
c n ih uniucn. tjouu 

t\iflTT\/cpnnc TCVT 
nIMIlVLLUUL. ILXI 

16 

2-FEB-81 

222 

B 

9 H1L hr ti/fr <tQ«;nn 
c n IH un 1 UCn. Cp./3UU 

MPDMnnCAi TCVT 

rTLnnUDLn. ILXI 

12 

3- 

-FEB-81 

222 

I 

T Tnc 9^^ prtntfp nciuin 
j luo cDj rninMLn ULnU 

pcmconni tcvt 
bLNLPUUL. TLXT 

3h 

7-FEB-81 

222 

I 

L Tn llh crorrm muute 
H 1U hhu bLKLLfM UUrJr 

nncpnT TCVT 
UUbLA l . TLXT 

12 

12- 

-MAR-81 

222 

B 

^ Tn *»kn cprffivi hiimo y 

J 1U HHU bLnLLni Uunr.A 

DTI DT TCVT 

rlLU 1 . ILX 1 

12 

5- 

•JUL-80 

222 

A 

c i npri |\ö fMPrRTMP 
D LHDCL IVUnoLnlfvu 

dti riT nnp tcvt 
r 1LU 1 • UUL. 1 LX 1 

16 

5- 

OUL-80 

222 

A 

9 i tqtfr TPFMnrnM 9nn 

7 LiOltn InLNIl/LUrl cUU 

HFRTC TFYT 
ULÖ Ib. 1 La 1 

oc 

CO 

16- 

•MAR-79 

222 

T 

9 I TCTFP 
c LlblLn 

ornnur tcvt 
nLHUML. TLXT 

12 

12- 

•MAR-81 

222 

A 

D rHrtn I lbLn Mun Uunr 

P> TPU pk! nm TCVT 

Ulbn. UUMH. TLXT 

12 

18- 

.MAY-81 

222 

B 

j rHrtn llbcn nun uurlr. A 

DIRECTORY. TEXT 

H 

18- 

■MAY-51 

222 

8 

TL PQPFR TTrro DTP 
>♦ rHrLn llbcn. rlb 

README2 . TEXT 

U 

15-JUL-81 

222 

A 

*: rlL 1 UnL LOADLK 





222 

I 

C DDTfllTCO TnC CCTim <l 

o rnliAHLH IDb 5LTUP 1 

23/23 filee, 2 unueed, 

2 in lBrgee 

222 

I 

•in DDTIUTrD TftC cc Tl m O 

TU rn lm LH lub SETUP 2 




222 

I 

□ DDTfXJTCD TftC 

V rKllVILK lUb 





222 

I 

in PRTMTrD TD 19C 
lU rnliMlt-n lr \Cj 





222 

A 

91 DOTMTCO DATPU ftnr 

cl rn lm LK rMILn UUL 





222 

B 

9 PRTNTFR DflTPU 

c rniificn rHiLn 





222 

A 

11 DQTMTCQ ODr.n DflMMrn 

Il rnim LK rKHU aANnltn 





222 

A 

/ rnlRilcn HHhU JUSTIrY 





222 

A 

J rnllMltn QUICn DDp 





222 

B 

d rKlNTLH QUICh DRI\/LR 





222 

B 

o nJIY A2Uhö Li 535 





222 

I 

T CTi FMT\/Dr am n no t mt 
j blLLivlYrt aULD PnllMT 





222 

B 

9 CTl rUlTV/Hr nni rs v 

^ blLtlMTYPL BOLO.X 





222 

B 

9 TTU AQDD I Oli 

^ I 1 Y AÖÖU LZ3h 





222 

6 

Q TTV RfliinnT nOTviro MTron .li 
7 MT öMUUU I UKlv/Ln nlLnU -Ji 





222 

B 

13 TTY BAUDOT DRIVER 





222 

B 

2 TTY BAUDOT 





222 

B 

5 TWO TONE ALARM 






- 24 - 


**F>F>I_E:KHJBI — 

**F»F»LE: f=r j |xl|__^|vJE> USERS CLUB F*„Y- 

lö NIMI JA KOTIPAIKKA 

Yhdistyksen nimi on APPLEKLUBI - APPLE FINLAND USERS CLUB ja 
kotikunta on Helsingin kaupunki. J 

2ö TARKOITUS JA TOIMINNAN LAATU 

Yhdistyksen tarkoituksena on toimia kokoavana ia yhdistävänä 
elimeni APPLE-ti et okoneiden parissa toimivien ntn£il öiden kes- 
£f2; Yhdistys pyrkii toiminnallaan tukemaan jäseniään APPLE- 
ti et okonei den laitteistoihin ja ohjelmistoihin liittyvissä 
A%lYe y +* l ? B ?' YhdxBtvsvpi .antaa. myi* ulkopuolisille tietoja 
APPLE-tietokpneiden laitteistoihin ja ohjelmistoihin liitty- 
vissä kysymyksissä. Yhdistys voi antaa myös ulkopuolisille 
tietoja APPLE-asiantunti joista. Yhdistys pyrkii edistämään 
myös yleistä atk-alan tuntemusta. r aan 

Tarkoituksensa toteuttamiseksi yhdistys järjestää jäsentilai- 

?^ k ?t^^° ul ä tus ^^ esiteIma r. J* •«itUlftiiai.uuk.iS, Alit- 
taa tietoja jäsenilleen eri tiedonvälityskanavia käyttäen. 

3Si?i n *? n I?«i , f k " m J* e K Bi i yf? lBt Y s v 9* toimeenpanna rahankerä- 
yksiä ja arpajaisia hankittuaan asianomaisen luvan. 

3ö JäSENET 

Yhdistyksen jäseneksi voi liittyä kuka tahansa APPLE-ti eto- 
koneeseen tai automaattiseen tietojenkäsittelyyn liittyvistä 
asioista kiinnostunut henkilö taikda yhteisö. Yhdistyksen 
jäseniL° ° varsinaisia !' kannattaja- taikka yhteisö- 

Yhdistyksen jäsenet hyväksyy hallitus. 

2? Se 2?H? ° n 0 i k ?? 5 _ € T ota , Yhdistyksestä ilmoittamalla siitä 
2?.«J l fJIi5Sf tl ^5f 1 l 4 J iU,<Ä *? 1 f tai sen Puheenjohtajalle taikka 
suullisesti yhdistyksen kokouksen pöytäkirjaan. 

i^n^i^2 Bri -i?K^ n M*tty»i*r ja vuotuisen jäsenmaksun 
suuruudesta paattäa vuosikokous. 

4B HALLITUS 

Yhdistyksen asioita hoitaa hallitus, johon kuuluu vuosikoko- 
uksessa valitut puheenjohtaja ja 4 varsinaista sekä 2 vara- 
j asenta . 

Mairituksen jäsenten toimikausi on vuosikokousten välinen 

Hö Ii itu ^ valitsee keskuudestaan varapuheenjohtajan sekä ottaa 
sihteerin, rahastonhoitajan ja muut tarvittavat, toimihenkilöt. 

Hallitus kokoontuu puheen johta ian tai hänen estyneenä oi les- 
^^varapuheenjohtajan kutsusta kun he katsovat siihen olevan 
aihetta tai kun vähintään 2 hallituksen jäsentä sitä vaatii. 

«f!i?i tu£ D I? Päätösvaltainen, kun vähintään puolet sen iäse- 
«i ltL" . P u £ een J ont aja tai varapuheenjohtaja mukaanluettuna 
SOjIS Sn f^?**** ratkaistaan yksinkertaisella ääntenenemmi s 
nfril *,iit£T2.?*i m ? SSÄ . * asan ratkaisee puheenjohtajan mieli- 
pide, vaaleissa kuitenkin arpa. 

53 YHDISTYKSEN NIMEN KIRJOITTAMINEN 

Y !]?i; tykB ^ r i nimen kirjoittavat puheenjohtaja ,a varapuheen- 
johtaja yhdessä tai jompikumpi yhdessä sihteerin tmi rahas- 
tonhoitajan kansca. 
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TILIT 


Yhdistyksen tilikausi on kalenterivuosi. 

Tilinpäätös tarvittavine asiakir joineen ja hallituksen 
vuosikertomus on annettava tilintarkastajille viimeistään 
kaksi viikkoa ennen vuosikokousta. Tilintarkastajien tulee 
antaa kirjallinen lausuntonsa hallitukselle viimeistään 
viikkoa ennen vuosikokousta. 


YHDISTYKSEN KOKOUSTEN KOOLLEKUTSUMINEN 

Yhdistyksen kokoukset kutsuu koolle hallitus. Kokouskutsu on 
toimitettava viimeistään seitsemän <7> päivää ennen kokousta 
joko lähettämällä kutsu kirjallisena kullekin jäsenelle tai 
julkaisemalla kutsu jossakin alan ammattilehdessä. 


YHDISTYKSEN KOKOUKSET 

Yhdistuksen vuosikokous pidetään vuosittain hallituksen mää- 
räämänä päivänä ennen maaliskuun loppua. 

Ylimääräinen kokous pidetään, kun hallitus katsoo siihen 
olevan aihetta tai kun vähintään viidesosa (l/5> yhdistyksen 
jäsenistä ©itä hallitukselta erityisesti ilmoitettua asiaa 
varten kirjallisesti vaatii. Kokous on pidettävä neljäntoista 
(14) päivän kuluessa vaatimuksen esittämisestä. 

Yhdistyksen kokouksissa on jokaisella jäsenellä yksi ääni. 
Yhteisöjäsenillä ei yhdistyksen kokouksessa ole äänioikeutta. 
Päätökset tehdään, ellei näissä säännöissä toisin määrätä, 
yksinkertaisella ääntenenemmistöllä, äänten mennessä tasan 
ratkaistaan vaalit arvalla, mutta muissa asioissa tulee pää- 
-tökseksi kokouksen puheenjohtajan mielipide. 


VUOSIKOKOUS 

Yhdistyksen vuosikokouksessa käsitellään seuraavat asiat: 

1. kokouksen avaus; 

2. valitaan kokouksen puheenjohtaja, sihteeri ja kaksi 
pöytäkirjantarkastajaa ja kaksi ääntenlaskijaa; 

3. todetaan kokouksen laillisuus ja päätösvaltaisuus} 

4. hyväksytään kokouksen työjärjestys; 

5. esitetään tilinpäätös, vuosikertomus ja tilintarkas- 
tajien lausunto; 

6. päätetään tilinpäätöksen vahvistamisesta ja vastuu- 
vapauden myöntämisestä hallitukselle ja muille tiii- 
vei voi 1 i si 1 1 e ; 

7. vahvistetaan toimintasuunnitelma, tulo- ja menoarvio 
sekä liittymis ja jäsenmaksun suuruus; 

8. valitaan hallituksen puheen lohta ja ja muut jäsenet; 

9. valitaan kaksi tilintarkastajaa j* heille kaksi 
varami estä; 

10. käsitellään muut kokouskutsussa mainitut asiat. 

Mikäli yhdi st y k sen jäsen haluaa saada '»onkin asian yhdis- 
tyksen kokouksen käsiteltäväksi, on hänen siitä kirjalli- 
sesti ilmoitettava hallitukselle niin hyvissä ajoin, että 
se voidaan sisällyttää kokouskutsuun. 


SääNTöJEN MUUTTAMINEN JA YHDISTYKSEN PURKAMINEN 

Päätös sääntöjen muuttamisesta ja yhdistyksen purkamisesta on 
tehtävä yhdistyksen kokouksessa vähintään kolmen neljäsosan 
(3/4) enemmistöllä annetuista äänistä. Kokouskutsussa on mai- 
nittava sääntöjen muuttamisesta tai yhdistyksen purkamisesta. 

Yhdistyksen purkautuessa käytetään yhdi st vk sen varat yhdistyk- 
sen tarkoituksen edistämiseen purkamisesta päättävän kokouksen 
määräämällä tavalla. Yhdistyksen tullessa lakkautetuksi käy- 
tetään varat samaan tarkoitukseen. 
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10 REM 


FREE SPACE AND FILEOUMP POKER 
PUMP/GCH_DING/yELMAN/REYNOLDS/EDGE 
CALL-A.P.P.L.E. SEPT. 1982 

100 HEX$ « "BA69:AQ CB 16 B9 F2 B 
3F0EA90FB48E6 40 002 

E64168 18 90F0B8D0E9 
A6 40 A5 41 AC 6 ED 00 3 4C 
24 ED 4C 1B E5": BOSUB 900 

110 HEX$ s -B3AF:BD C5 C3 C1 DO D 
3 AO (5 C5 K DB AO M ADB9 : E 
A A9 O 85 1*0 85 41 20 69 BA- 
: GOSUB 900 

200 HEX$ » «BCDF:20 8E FD 20 A3 A 
2 20 8C A6 FD 12 20 ED FD AD 
O CD 10 F3 80 10 CD 20 18 F 

0 C9 91 00 E9 20 FC A2 60 N 
ABE7:46 49 4C 45 44 55 40 00 

M 9D48:DE 8C N A933:20 30": 
GOSUB 900: ENO 
300 REM 

ANY KEY IM FILEOUMP PAUSES OUTPUT 
CTRL-Q ABORTS OUTPUT 

900 HEX$ « HEX$ ♦ • N D90SG": FOR 

1 * 1 TO LEN (MEX$): POKE 5 
11 + I, ASC < MID$ <HEX$,I,1 

)) ♦ 128: NEXT : PQKE 72,0: CALL 
- 144: RETURN 


10 REM 

FREE SPACE ON THE SCREEN 
MIKE FIRTH - CALL-A.P.P.L.E. 

100 GOSUB 8820: END 

8820 HOME : REM FREZ SPACE 

8821 Q$ « "72,152,72,138,72,32,24 
7, 175, 169,0, 133,68, 133,69, 16 
2, 140, 160,8, 189,242, 179, 10, 1 
44,6,230,68,208,2,230,69, 136 
,208,244,202,208,236,165,69, 
240, 16,56, 165,68,233, 100, 133 
,68, 165,69, 233,0":Q = 1024 

8822 GOSUB 8826 

8823 Q$ « "69,233,0,133,69,232,16 
,236,32, 142,253, 160,2, 138,32 
,70,174,200,185,84,4,9,128,3 
2 , 237 , 253 , 20 1 , 14 1 , 208 , 243 , 10 
4,170,104,168,104,96,32,70,8 
2,69,69,32,83,69,67,84,79,82 
,83, 141, 127, 127,0, 0»:Q - 102 
4+48 

8824 GOSUB 8828 : l/T AB 22 : CALL 1 
024: INPUT "RETURN ";Q$: RETURN 

8828 FOR 3 « 1 TO LEN (Q$):Q1 * 

VAL ( MID$ (Q$,J)): POKE Q, 

Q1:Q * Q + 1:J » J ♦ LEN ( STR$ 

(QD): NEXT : RETURN 


PIIRTURIOHJELMA 


2 LQMEM = 24577 

3 DIM X (500) , Y(5O0) : DIM 27. (500) 

8 DIM AB<99): DIM QQ (99) , SS (99) 
10 REM MONIKULMION KOORDINAATTI 
EN 

14 REM PIIRTÄMINEN MATANABE 

16 REM -PIIRTURILLA JA TULOSTUS 
KIR- 

18 REM JO ITT IMELLÄ 

20 TEXT : HOME 

22 PRINT : PRINT : PRINT ■ 

MONIKULMIO 
24 PRINT : PRINT " MITÄ T 

EHDÄÄN " 
26 PRINT : PRINT "1- ANNATKO UUS 

IA KOORDINAATTEJA ": PRINT 

28 PRINT "2- LUETAANKO KOORDINAA 

TTEJA LEV. PRINT 
30 PRINT "3- PIIRRETÄÄNKÖ KUVAPU 

TKELLE ": PRINT 

32 PRINT "4- PIIRRET*ÄNKö PURTU 

RILLA PRINT 
34 PRINT "5— TULOSTETAANKO KIRJO 

ITT IMELLÄ ": PRINT 

36 PRINT "6- TALLENNETAANKO LEVY 

LLE PRINT 
38 PRINT "7- YHDISTETÄÄNKÖ PISTE 

ET VIIVALLA - i PRINT 
40 PRINT "8- EDITOITKO KOORDINAA 

TTEJA": PRINT 
42 PRINT "9- TAULUKO IDAANKO PIIR 

TURULLA PRINT 
44 PRINT "O- MUUTA ESIM KUVIEN T 

EKSTIT -i PRINT 

46 INVERSE : PRINT " V A L I T S 

E "x NORMAL 
50 SET AÖ:A - VAL (AB) t IF A < 

> O THEN lOO 
60 IF A * O THEN HOME x PRINT " 

1- KUVIEN TEKSTITYS": PRINT 

: PRINT "2 - GRAFIIKKATAULUN 

KÄYTTÖ": PRINT : PRINT "3-LO 

PPU ": PRINT "VALITSE ": SET 

Bfi: B - VAL (Bö) : IF B ■ 1 THEN 

1200 

65 IF B - 2 THEN PRINT "LATTAA 
OHJELMAA CHRÖ (4) ; "RUN GR 
AFTAB" 

70 IF B - 3 THEN : HOME : PRINT 
: PRINT "LOPPU ": END 

lOO ON A SO TO 200,2080,5500,3000 
,5000,2000,400,3100, 1040,999 
9 

190 REM ************************ 
****** 

200 REM UUSIEN TIETOJEN ANTO 
210 TEXT : HOME : VTAB (6): HTAB 
(8) 

213 PKB - "NÄPPÄILTY " 

220 PRINT "MONTAKO PISTETTÄ "i INPUT 


240 INPUT "MITTAKAAVALUKU "«Ml 
250 INPUT "PIIRROKSEN VASEN ALAN 

URKKA XO,YO "|XO,YO 
260 M2 « 10000 / Ml 
262 J - O 

265 PRINT "LAJI 1 »ERILLISET PIST 
EET, LAJI 2 PISTEET YHDISTYY 

VIIVALLA JA LAJI 3 NIMISTÖ 
TIETOJEN KOORDINAATIT 

270 FOR T - 1 TO NP 

280 PRINT " ANNA X, Y 

LAJI ": PRINT 

281 PRINT "P.N ":T:: INPUT X(T), 
Y<T> ,Z7.(T) 

282 IF Z%(T) - 3 THEN J - J + li 

INPUT "NIMI, KIRJOI TUSSUUNT 
A JA TEKSTIKOKO"; AB (J) ,QQ(J) 
,SS<J)»NJ - J 
285 NEXT 

290 REM PISTEET NÄYTTÖÖN 
30O FOR T - 1 TO NP» PRINT "NO " 
|Ti TAB ( 9>:X(T): TAB ( 20) Y( 
T)| TAB ( 30); "LAJI ";Z7.(T) 
370 NEXT i FOR J » 1 TO NJ: PRINT 
J| TAB ( 4)Afi(J); TAB < 30) "QQ 
*QQ<J)| TAB ( 36) "SS"SS(J) s NEXT 

J 

373 SET Afii 80T0 20 
380 REM ************************ 
* 

390 REM VIIVAN PIIRTÄMINEN 

400 INPUT "SNNA VIIVALAJI 1-KAT 
KOVIIVA O-EHYT VIIVA ";L0: GOSUB 
**10i IF LO » 1 THEN INPUT 

" VIIVOSAN PITUUS 1...13 "|V 
IlVI - VI * 10: OOSUB 9600 

401 INPUT "MITTAKAAVA " ;M1:M2 « 
10000 / Ml: INPUT " ANNA VAS 
EN ALANURKKA XO,YO ";XO,YO 

402 X • M2 * (Y(l) - YO):Y * M2 * 

<X(1) - XO): SOSUB 9100: IF 

LO » 1 THEN 403 i SOSUB 9610 
405 REM VAIHTAA X JA Y PAIKAN 
410 FOR T - 1 TO NP 
420 X « M2 * (Y(T) - YO)iY - M2 * 

<*(T> - XO>l SOSUB 3070 
425 If Z7.<T) - 1 THEN SOSUB 910 

Of GOTO 440 
427 IF Z7.(T) - 3 THEN 440 
430 808UB 9000 
440 NfXT T 
450 908UB 9700 
490 «JT ASfil SOTO 20 
1040 «EM KOORDINAATTIEN TAULUKO 

■NTI 

1042 *£M *********************** 


1030 


INT " TAULUKON SIJAINTI 


1033 8RINT "PIIRTURIN KOORDINAAT 
ISTOSSA" 

1060 INPUT "TAULUKON VASEN YLÄRE 

UNA X , Y"|Y,X 
1070 Ö INPUT "TEKSTIKOKO, 2. . . 15"j 


225 REM *********************** 


TEXT 
(8) 


i HOME s VTAB (6) : HTAB 
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il 10 GOSUB 9100: AO = " NQ x 

V ": GOSUB 9200: GOS 

9350 

1 1 20 FOR U = 1 TO NP 

1130 Y « Y - 30 * S - 20 * LOG ( 
SS): GOSUB 9100: PR# 2: PRINT 
"P"; 15 + U; " "s X <u> ; " 
; Y<U) : PR# O 

1150 NEXT 

1160 GOSUB 9700 

1200 REM 

1290 REM *********************** 
**** 

1300 REM NIMISTÖN TEKSTAUS GRAF 

TAB OHJELMALLA LUOTUNA 
1305 INPUT "ANNA VASEN ALANURKKA 
XO,YO ";XO,YO: INPUT " ILM 
OI TA MITTAKAAVA ";M1:M2 = 10 
000 / Ml 
1308 J = O 

1310 FOR I = 1 TO NP 

1320 IF ZX(I) = 3 THEN GOSUB 14 

00 

• 1330 NEXT : PRINT "SIINÄ KAIKKI " 
: PRINT 

1333 PRINT Aö<J + 1); TAB < 30) "Q 
Q"00(J +1); TAB ( 36)" "SS(J 
+ 1) 

1338 FOR HM - O TO 2999: NEXT 
1340 GOTO 20 
1400 J = J + 1 

1410 Aö - Aö<J>:QQ ■ QQ(J):SS » INT 
(M2 * 2 * SS(J) ) : : X m M2 * ( 
Y<I> - YO):Y - M2 * (X(I) - 
X0)« GOSUB 9100: GOSUB 9200 

1420 GOSUB 9250 

1430 GOSUB 9350 

1440 RETURN 

1*70 GOTO 20 

1980 REM *********************** 
* 

1990 GOTO 20 

2000 REM TIEDOSTON LUONTI LEVYL 
LE 

2003 PKB ■ "NÄPPÄIMISTÖLTÄ" 
2005 INPUT "TIEDOSTON NIMI";Fö 
2010 Dö » "" 

2020 PRINT DÖ;"OPEN";Fö 

2030 PRINT Dö; "WRITE" ; Fö 

2035 PRINT NP 

2040 FOR I «* 1 TO NP 

2030 PRINT X(I): PRINT Y(I): PRINT 

Z5C<I> 
2060 NEXT 

2062 FOR J « 1 TO NJ: PRINT AB<J 
): PRINT QQ(J)i PRINT SS(J)i 
NEXT J 

2065 PRINT SX: PRINT SYi PRINT S 

ö* PRINT M2: 
2067 PRINT XOi PRINT YOt PRINT M 

1 

2070 PRINT Dö $ "CLOSE"|Fö 

2075 BOTO 20 

2080 REM TIEDOSTO LUKU 

2083 Dö - CHRB (4) 

2088 INPUT "TIEDOSTON NIMI " t Fö 

2090 IF Fö - "?» THEN PRINT Dö| 


"CATALOG" i GOTO 2088 
£ 2105 PRINT Dö|"OPEN"|Fö 
2110 PRINT Dö|"READ"|Fö 
2120 INPUT NP 
2140 FOR T - 1 TO NP 
2150 INPUT X<T>« INPUT Y(T): INPUT 

ZX<T) 
2160 NEXT 

2162 INPUT NJ: FOR J - 1 TO NJ i INPUT 
AÖ(J)i INPUT QQ(J)i INPUT SS 

(J>| NEXT 

2163 INPUT PKÖ 

2165 INPUT SXi INPUT SY, INPUT S 

äi INPUT M2: 
2170 PRINT Dö| "CLOSE" a Fö 
2175 REM ******t*t**t*****«4*««t 

***** 

; 2180 REM TULOKSET NAYTTöoN 
I 2183 HOME i TEXT , PRINT "NO 

x V LAJI ", FOR 

T - 1 TO NPi PRINT "T "|T; TAB ( 
7)|X(T)| TAB ( 18)|Y(T); TAB ( 
30)|Z7.(T)t NEXT 

2187 IF 8 - O THEN S - 1 

2188 PRINT "SX «,SX," SY ",SYs PRINT 
"MITTAKAAVA 1| », INT (1 /S 

) 

2189 FOR J m i jo NJ . PRINT j. TAB ( 
5)Aö(J); TAB ( 30) "QQ "jQO(J) 

| TAB ( 35) "SS ",SS(J): NEXT 
J 

I 2190 PRINT f PRINT "TÄSSÄ "jFö, PR INT 
"PAINA JOTAKIN JATKUU ": GET 
AÖJ GOTO 20 
2200 REM ********************««, 

2300 GOTO 225 

2500 REM 
i 3000 REM PIIRTÄÄ PISTEET JA K IR 

JOITTAA NUMEROT 
I 3001 TEXT i HOME i VTAB <8) : HT AB 
| (5) 

: 3002 PRINT "PIIRTURI PIIRTÄÄ NUR 
KKAPI8TEET JA KIRJOITTAA P 
ISTEESTA VASEMMALLE YLÖS SE 
N NUMERON" 

3003 PRINT » PRINT "MERKKI KOKO O 
N TEKSTIN KORKEUS MILLEINÄ" : 

PRINT t PRINT "KOKO 0*=0. 4MM 
JA EI KIRJOITA NUMEROITA" 

3004 PRINT : PRINT "MERKKILAJIT 

t "t PRINT "1 - PISTE" i PRINT 
"2 * NELIö VINOSSA": PRINT " 
3 - NELIÖ -i PRINT "4 - KOLM 
IO"i PRINT "5 - KOLMIOT KARJ 
EKKaIN": PRINT "6 - YMPYRÄ " 

3005 INPUT "MERKKI K OKO JA -LAJI 
1. . . 15, 1. - .6";SS,NN 

3006 PRINT Vö: INPUT "MITTAKAAVA 
I- UMJ " • M 1 j M2 • 1 0000 / M 1 

5010 JNPHf "ANNA VASEN ALANURKKA 

YO"}XO./0 
''M 4 '.OSUU 9200 
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3016 FQR f « 1 10 N F 

3017 X » «2 I <V<T> - YO) : Y = M2 * 
(XtT) - X0>: IF X > 2500 THEN 
vc = "YLITYS X-KOORD": GOTO 
3COö 

3018 IF Y 35O0 THEN Vö = "YLIT 
YS Y-KOORD" : GOTO 3006 

3019 NEXT 

3020 FOR T = 1 TO NP 

3025 X = M2 * (Y(T) - YO):Y = M2 *. 

(X(T) - XO) : GOSUB 3070: GOSUB 

9100: GOSUB 9500 
3027 IF SS = O THEN 3040 
3030 DH = - 10 * SS: DB = 10 * S: 

GOSUB 9300: GOSUB 9400 
3040 NEXT 
3050 GOSUB 9700 
3060 GOTO 20 

3070 IF X > 2500 THEN X = 2500 
3075 IF X < O THEN X = O 
3080 IF Y > 3500 THEN Y = 35O0 
3085 IF Y < O THEN V - li RETURN 

3087 RETURN 

3090 GOTO 20 

3099 REM *#######*##*#*###### 

3100 REM EDITOINTI 

3110 PRINT "MINKÄ PISTEEN HALUAT 

KORJATA" : PRINT : 

3120 INPUT " ILMOITA PISTENUMERO 

";T 

3130 PRINT "X "T"="X (T) ; " Y 
"T"»"Y<T> ; " LAJI» "2X(T> 

3140 INPUT "ANNA UUDET ARVOT X,Y 
, LAJI"; X (T) , Y(T) , Z7.(T) 

3150 PRINT "VIELÄKÖ MUUTA": INPUT 
" 1=KYLLÄ 2 »TEKSTIN KORJAUS 
MUUT EI";Aö: IF Afi - "1" 
THEN 3120 

3155 IF Aö = "2" THEN 3160 

3157 GOTO 300 

3160 PRINT "ILMOITA NIMISTÖN NUM 

ERO MINKÄ HALUAT KORJATA " : PRINT 

3165 INPUT J 

3170 PRINT "TÄSSÄ KORJATTAVAT " i 
PRINT "NO ";J;" Aö» "Aö(J>| 

" QQ= "QQ(J);" SS» ";SS(J) 
3180 INPUT "ANNA KAIKKI UUDESTAA 

N SAMASSA JÄRJESTYKSESSÄ Aö 

,QQ,SS"; Aö(J) ,QQ(J) ,SS(J) j GOTO 

3150 
3190 GOTO 300 
3200 GOTO 20 
4000 GOSUB 9100 

4999 REM KIRJOITUS K IRJOI TTIMEL 
LA 

5000 PR# li PRINT " NO X 

Y LAJI " 
5005 PRINT " 


5008 GOSUB 5507 

5009 01 = LEN ( STRö ( INT (XS)) 
) :02 - LEN ( STRö ( INT (YS 

) > > 

5010 FOR T - 1 TO NP 

5011 TX » 5 - LEN < STRö <T>> ♦ 


01 - LEN < STRö ( INT <X<T> 
> ) > : TY » 4 + 01 + 02 + - LEN 
( STRÖ ( INT (Y (T) ) ) ) 

5012 IF TX » > 10 THEN TX = TX - 
1:TY - TY - 1 

5013 IF T - > 100 THEN TX - TX - 
2l TY - TY - 2 

5015 TZ - TY + 6t PRINT " ";T; TAB ( 
TX);X<T>; TAB ( TY);Y(T>; TAB ( 
TZ> ; Z'/.(T> 

5019 NEXT 

5020 PRINT ••—«««»»«»«»==»»=»» 

5025 PR* O 
5030 GOTO 10 

5500 REM *«*««»**»»**>»********* 

5501 GOTO 5542 

5502 REM PIIRTÄMINEN KUVAPUTKEL 
LE 

5507 PRINT "KONE HAKEE MAX JA MI 
NIMI KOORD":XS » X < 1 ) : XP » X 



( 1 ) : YS » Y ( 1 ) 

YP - 

Y ( 1 ) 


5510 

FOR T » 1 TO 

NP 



5515 

IF X<T) > XS 

THEN 

XS = 

X <T> 


: REM SUURIN 

ARVO 



5520 

IF X(T) < XP 

THEN 

XP » 

X <T> 


: REM PIENIN 

X 



5530 

IF YS < Y(T) 

THEN 

YS " 

Y < T ) 

5535 

IF Y < T ) < YP 

THEN 

YP » 

Y(T) 


: REM PIENIN Y 



5537 

NEXT 




5540 

PRINT "X MAX 

"XS; 

' X 

MIN " 


;XP: PRINT " Y 

MAX 

•YS;" 

YM 


IN " YP: PRINT "PAINA JOTAKIN 

5541 RETURN 
; 5542 PRINT "HALUATKO AUTOMAATTI S 
EN MITTAKAAVAN VALINNAN PAIN 
A A": INVERSE : PRINT "VALI 
TSE ": NORMAL : GET Aö: IF A 
ö < "A" THEN 6000 

5545 GOSUB 5507 

5550 XD = XS - XP ♦ . 0005i YD - YS 
- YP + .0005: MY » 190 / YD: 

MX = 275 / XD 
5560 MZ = MY * .8: IF MX < MY THEN 

MZ » MX * .8 
5575 PRINT "MITTKAAVATEKI JÄ ";M 

Z 

5578 PRINT "VOIT VALITA VÄRIN O 
»MUSTA 1= VI HR 2»VI0L 3-VA 
LK 4»MUSTA 5»0RANS 6-SIN ": 

GET COö:CO » VAL <COÖ) : IF 
CO * 42 256 THEN CO « 6 

5579 PRINT "SÄILYTETÄANKÖ ENTINE 
N KUVA -1 . ENTINEN KUVA PO 
ISTETAAN =2 ": GET Aö: IF VAL 
<AQ) * 1 THEN POKE 16304 
,0: POKE - 16299,0: POKE 28 
,42 * CO: GOTO 5582 

5581 HGR2 : I F CO 6 THEN CO - 
hi 

55Q2 HIOL0R-- CO: FOR 1 - 1 TO NP 
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5590 

X = 190 - <X(T> - XP) * MZ:Y 


= (Y(T) - YP> * MZ 

5595 

GOSUB 

6260 

5607 

IF Z"/.(T) = 2 THEN HPLOT TO 


Y,X: GOTO 5611 

5610 

IF Z-/.(T) < > 2 THEN HPLOT 


Y, X 


5611 

NEXT 


5620 

GET Aö 

5650 

GOTO 20 

6000 

REM KUVAN PAIKKA JA MITTAK 


AAVA 


6005 

Lö = "- 


6010 

PRINT 

: INPUT "MITTAKAAVA 


M ;Sö:S 

= VAL (Sö) 

6020 

PRINT 

: INPUT "ALIN X " j SXÖ 


:SX ■ 

VAL (SXÖ) 

6030 

PRINT 

: INPUT "ALIN Y " ; SYÖ 


i SY = 

VAL (SYä> 

6040 

PRINT 

: PRINT Lö; " YHDEN Y 


KSIKKö 

PITUUS "200 * S 

6050 

PRINT 

Lö 

6060 

PRINT 

"SÄILYTETÄÄNKO ENTINE 


N KUVA »1 , ENTINEN KUVA PO 
ISTETAAN =2 "t GET Aö: IF VAL 
<AÖ) « 1 THEN POKE - 16304 
,0: POKE - 16299,0: POKE 28 
,43 * CO: GOTO 6075 
6065 PRINT "VOIT VALITA VÄRIN O 
=MUSTA 1= VIHR 2=VI0L 3-VA 
LK 4=MUSTA 5-ORANS 6-SIN "i 
GET C0ö:C0 » VAL (COö): IF 
CO « 42 > 256 THEN CO - 6 


6O70 

HGR2 : HCOLOR«= 3: GOTO 60SO 

6073 

REM ************** 

6oeo 

I = 1 

6090 

GOSUB 6220 

6100 

IF Z-/.U) < > 2 THEN GOSUB 


6150 

6110 

IF Z7.(I) « 2 THEN GOSUB 41 


60 

6130 

1=1+1» IF I « NP THEN 63 


20 

6140 

GOTO 6090 

6150 

HPLOT Y,190 - Xi RETURN 

6160 

HPLOT TO Y,191 - Xi RETURN 

6220 

REM *********************** 


******** 

6230 

REM REUNAEHTOJEN TARKIST 


US KUVAPUTKEA VARTEN 

6240 

REM *********************** 


********* 

6250 

X » S * <X<I>> ♦ SXiY »S * 


(Y(I) ) + SY 

6260 

IF X < 0 THEN X - 0 

6270 

IF X > 279 THEN X - 279 

6280 

IF Y < 0 THEN Y ■ 0 

6290 

IF Y > 191 THEN Y - 191 

6300 

RETURN 

6310 

REM *********************** 


***** 

6320 

REM PALUU MENUUN 


6330 GET Aöt GOTO 20 
8980 REM ********************** 
****** 

8990 REM PIIRTURIN ALIOHJELMAT 
9000 PR# 2i PRINT "D" INT <X>|", 

"I INT (Y) i GOTO 9800 
9100 PR# 2i PRINT "M"| INT (X)| M 

,"| INT (Y)i PR* Oi RETURN 
9200 PR* 2i PRINT "S"|SSi PR# Oi 
RETURN 

9250 PR* 2i PRINT "Q"|QQi PR# Oi 
RETURN 

9300 PR* 2i PRINT "R"| INT (DH) | 
","| INT (DB) » PR# Oi RETURN 

9350 PR* 2i PRINT "P"»Aöi PR* Oi 
RETURN 

9400 PR* 2l PRINT "P"|Ti PR# Oi RETURN 

9500 PR* 2i PRINT "N"iNNi PR# Oi 
RETURN 

9600 PR* 2i PRINT "Ll"i PRINT "B 

"|VIi PR# Oi RETURN 

9610 PR* 2l PRINT "LO"i PR* Oi RETURN 

9700 PR* 2i PRINT "H"i PR* Oi RETURN 

9800 PR* Oi RETURN 
9900 GOTO 5 
9990 END 

APR«1 

AP0KE1657, 130 
APRINTCHRÖ(27) 
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Glt^^l ikka t auluoh j e lma 

90 LOMEM = 24577 

100 REM SLOT 5 

105 HGR2 : TEXT : HOME 

110 REM PROGRAMMA PER APPLE GRA 

PHIC TABLET 

120 REM FRANCESCO PETRONI: DIGI 

NPUT 

125 PKÖ = "GRAFTAB" 

130 REM SUOMENTANUT JA MUUNTANU 
T 

135 REM 1982 AAPI JUNTURA 

140 GOTO 1590 

150 REM 1981... 1982 

160 REM KOORDINAATTIEN LUKU 

180 PRINT Dös "PR#";SL: PRINT "N" 

: PRINT Dö; "IN#";SL 
190 INPUT X,Y,Z: IF Z = > O THEN 

IF Z < > 2 THEN 150 
200 PRINT DÖ;"PR#0": PRINT Dö;"I 

N#0": RETURN 
210 REM 

220 REM MUISTI INMENEVÄN TIEDON 

ESITTÄMINEN 
240 HOME : PRINT Lö; 
250 PRINT " MUISTISSA OLEVAT LUV 

UT ";NP;" PISTETTÄ " 
260 PRINT Lö: POKE 34,3: PRINT TAB ( 

13) j " X "; TAB ( 24) " Y "; TAB ( 

33) "LAJI": FOR P - 1 TO NP: PRINT 

"P.N. ";P; 
270 PRINT TAB ( 13) X7.(P>; 
280 PRINT TAB < 23)Y'/.(P); 
290 PRINT TAB ( 35>Z7.(P): NEXT P 

292 FOR J = 1 TO NJ: PRINT " "J 
I TAB ( 5)AÖ(J) | TAB ( 30) "QQ 
"aQ(J); TAB ( 35) "SS";SS<J> : NEXT 

300 PRINT Lö»" ~ PAINA JOTAKIN 
— 

310 GET Aö: GOTO 1650 

320 REM ************************ 

330 REM VALMISTELU 

350 HOME i PRINT Lö; " GRAFIIKAN 

VALMISTELU": PRINT Lö 
360 VTAB 5: PRINT " VASEN AL AKU 

LMA ": GOSUB 150 

370 PRINT " — X ■ M |X| TAB ( 17) 

"Y«";Y:X1 - X:Y1 » Y 
380 VTAB 8t PRINT " OIKEA YLÄNU 

RKKA" : GOSUB 150 
390 PRINT "~X-";X; TAB ( 17) "Y«" 

j Yi X2 - X i Y2 - Y 
400 DX - X2 - XliDY " Y2 - YI: YM * 

DY » .8iXM - DX / 5 
410 PRINT l PRINT Lö; i PRINT " V 

ALMISTELUN TOTEUTUS" 
420 PRINT i PRINT : PRINT " ET 

ÄISYYS X-";X2 - Xl 
430 PRINT "—ETÄISYYS Y " ; Y2 - 

YI 

440 S - 280 / DX:SX - Xl * S:SY » 
YI * S 


450 PRINT i PRINT Lö| " YK I SK ON P 
ITUUS S- "| INT UOOO * S> t 
lOOOf " MM" 

455 PRINT "MITTAKAAVA ON "i INT 
(100 * 1 / 8) / 100| " i 1 

456 M2 - 2 * SiMl - 10000 

460 PRINT i PRINT " XlN ALINARVO 

. SX- -"|9X 
470 PRINT " Yi N ALINARVO . SV*-" 
,SY 

480 PRINT Lö|i PRINT "-- PAINA J 

OTAKIN. — "| 
485 J - O 

490 GET Aöi GOTO 1650 
500 REM ************************ 
***** 


510 

REM 

MENUN 

PAIKAN 

TARKISTUS 

530 

IF X 

< 

XM * 

a 

THEN 

Z*/.(I> - 5 

540 

IF X 

< 

XM * 

4 

THEN 

zxu> - 4 

550 

IF X 

< 

XM * 

3 

THEN 

2V.il) - 3 


i IF 

X 

> XM 

* 

2 THEN GOSUB 


2500 






560 

IF X 


XM * 

2 

THEN 

txm - 2 

570 

IF X 


XM * 

1 

THEN 

IV.il) - 1 


580 RETURN 

590 REM •••««•«»««««•«••«••««Nfttt 
#*#« 

600 REM MUISTIN KUVALLINEN ESIT 
YS 

610 REM *#«##**#«*««»fttt«##tt*»««* 
#*•«*«« 

620 TEXT : HOME : PRINT LD 

630 PRINT " KOORDINAATTIEN MUUNT 

O ": PRINT Lö 

650 PRINT : INPUT "MITTAKAAVA " 

;SÖ:S - VAL (SD) 
655 PRINT Lö: PRINT "ANNA VASEN 

ALAKULMA SX JA SY "i PRINT L 

0 

660 PRINT : INPUT "ALIN X "|SXOs 

BX « VAL (SXÖ) 
670 PRINT : INPUT "ALIN Y ";SYCJi 

SY - VAL (SYÖ) 
680 PRINT Löi PRINT "YKSIKÖN PIT 

UUS "| INT (100 * S) / 100} " 
MM" 

703 PRINT LÖI PRINT "VALITSE VAR 
Ii O-MUSTA 1=VIHER 2-VIOL 

3-VALK 4-ORANS 5*SIN "i PRINT 
"VALITSE "i GET COi IF CO 
5 THEN 703i 

704 PRINT "VALITSIT "COi PRINT L 
ö 

705 PRINT "SÄILYTETÄÄN»' o F NT F NE N 

KUVA -l f ENTIflFN KUVA POIBT 
ETAAN «'.? (3E I A: IF A » 1 THEN 

PO»- 1 - 1> ''*4,Oi prn { i 
299, 0: HCOLUP - CU: M)M . H, 4 
3 » CO: GOrO tHO 
710 HGP2 : »COI IIP - CO 
72o I =• J 
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7 30 SGSUB 860 

740 IF ZXM < > 2 THEN GOSUB 
790 

750 IF ZZtlt - 2 THEN GOSUB 800 

770 I ■ I ♦ tt IF I * NP THEN 950 

780 GOTO 730 

790 HPLOT v. 190 - X: RETURN 

800 HPLOT TO Y,190 - X: RETURN 

850 RETURN 

860 REM ************************ 
******* 

870 REM REUNAEHTOJEN T ARK ISTU 

S KUVAPUTKEA VARTEN 
880 REM ************************ 

******** 

890 X = S * <XX(I>) ♦ SX:Y = S * 

(Y%(I> > ♦ SY 
900 IF X < O THEN X - O 
910 IF X > 190 THEN X ■ 190 
920 IF Y < O THEN Y » O 
930 IF Y > 279 THEN Y = 279 
940 RETURN 

950 REM ************************ 
**** 

960 REM PALUU DIGITOINTIIN 
970 REM ************************ 
***** 

9BO SET Afi 
990 GOTO 1650 

lOOO REM XXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXX 

1010 REM TIETOJEN LUKU LEVYLTÄ 

1020 REM XXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXX 
1030 TEXT : HOME 
1040 VTAB <12): PRINT Lö; 
1050 VTAB (9): PRINT Lö; : PRINT 

" — ILMOITA TIEDOSTON NIMI 

1060 INPUT " " ; Fö 

1065 IF Fö = THEN PRINT CHRö 

(4) ; "CATALOG": GOTO 1050 

1070 PRINT DO"OPEN";Fö: PRINT Dfi 
"READ" ;Fq 

1080 INPUT NP: FOR I = 1 TO NP 

1090 INPUT XX (I): INPUT YV. < I ) : INPUT 
ZXtitl NEXT I 

1094 INPUT NJ 

1095 FOR J - 1 TO NJ: INPUT Aö(J 
): INPUT QQ(J): INPUT SS(J): 

NEXT J 

1097 INPUT PKO: INPUT Si INPUT S 

X: INPUT SY: INPUT Ml 
1100 PRINT DQ"CLOSE": GOTO 1650 
1110 REM ********************** 

******* 

1120 REM UUSIEN TIETOJEN KAS ITT 
ELY 

1130 REM **»**»»»*»•»*******«*** 
««*«*»«« 

1140 HOME : PRINT LO; " TAULUSTA 
SAATUJEN TIETOJEN KÄSITTELY 
•: PRINT 


1150 PRINT " MENUN TUNNIST 

US ": PRINT. LÖ 

1160 PRINT "-1 ERILLISET PISTEE 

T (LAJI 1)": PRINT 
1170 PRINT "-2 VIIVA PISTEELTÄ T 

ÖISEEN (LAJI 2) ": PRINT 
1180 PRINT "-3 NIMEN SIJOITUS PA 

IKKAAN LAJI 3": PRINT 
1190 PRINT "-4 TIEDON KORJAUS (L 

AJI 4) ": PRINT 
12O0 PRINT "-5 PIIRUSTUKSEN LOPE 

TUS (LAJI 5)": PRINT : PRINT 

Lö 

1230 HTAB 5i VTAB 17: PRINT " JA 
TKATKJ EDELLISTÄ TYoTa -1; A 
LOI TATKO UUDEN -2 ; VALITSE 
": GET AJ: IF AJ , 2 THEN 12 

30 

1235 IF AJ - 1 THEN I > NP 

1236 IF AJ - 2 THEN I - 1 

1240 PRINT : PRINT " -PAINA JOTA 

K IN"; : GET AÖ 
1250 HOME : PRINT " KOORDINAATTI 

EN LUKU" 
1260 PRINT LO: POKE 34,3 
1280 REM ********** 

1290 REM KOORDINAATTIEN LUKU T 

AULUSTA 
1300 REM *********** 

1310 PRINT "—PISTE N ";I: GOSUB 
150 

1320 X - X - XliY «= Y - YIjXV. (I) - 

X:Y*/.(I> - Y 
1330 IF X < O OR Y < O THEN 1850 

1340 IF X > DX OR Y YM THEN 18 
50 

1350 PRINT " KOORDINAATTI X* ";X 

X(I>; TAB ( 22);"Y= " ; YV. ( I ) ; TAB ( 
33); "LAJI ";Z"/.(I> 

1355 PRINT "PISTE "I 

136U REM ************* 

1370 REM TARKISTUS 

1380 REM ***************** 

139o GOSUB 150 

1400 Y=Y-Y1:X=X-X1: IF Y < 
YM THEN IV. (I) = ZV.il - 1):I = 
1 + IsXX(I) = X:YV. (I) ■ Y:Z7. 
(I) * 2: GOTO 1350 

1410 GOSUB 500 

1420 IF IV. (I) = 4 THEN 1310 
1430 IF 77.(1) = 5 THEN 1460 
1440 PRINT "LAJI " \1V. (I) 
1450 PRINT il =• I ♦ ti GOTO 1310 

1460 NP - I: GOTO 1 65o 

1470 REM ********************** 

148<> RFM TIEDOSTON LUONTI 

14VO REM *********************** 

15u<> T> X I : HOME : VTAB (H) 

151 0 V TAI' (trUä TRI NT L.<>; 

1520 VT AH CV): PK1N1 L»i 

lf.'.!! PRINT " M* DOS T ON NIMI" 

I XAKS PRIMl " MIIA ESI 1 Ai ";: INPUT 
— Il „ 

ir.;." pmni n<>"i)PhN "ti <-: i kini i> 

>"WKI 11 ";)<> 
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1560 
1562 


** 


1570 

1580 
1590 

1 600 

1610 

1620 
1630 
1640 

1645 

1650 

1660 

1670 

1680 
1690 

1700 

1710 

1720 

1730 

|,%° 

j 1750 
• 1760 
1 763 
1765 
1770 
1 780 
1 790 
1 800 


1810 
1820 


PRINT NP: FOR I = 1 TO NP 
PRINT PRINT Y7.(I): PRINT 

Z>.<I): NEXT 
PRINT NJ: FOR J = 1 TO N J : PRINT 

AÖ(J): PRINT QQ(J>: PRINT SS 

(J) : NEXT J 

PRINT PKÖ: PRINT S: PRINT S 
X: PRINT SY: PRINT Ml 
PRINT DÖ"CLOSE": GOTO 1650 
REM *********************** 


REM OHJELMAN ESITYÖT 

REM *********************** 

5 


1830 
1840 


1850 
1860 


Dö = CHRÖ (4) :SL 

LÖ = " 

DIM XV. (999) ,Y7.<999) ,Z7.(999) 

DIM Aö(99) ,QQ(99) ,SS(99) 

REM *********************** 
** 

REM TEHTÄVÄN VALINTA 

REM *********************** 
** 

TEXT : HOME : PRINT LÖ; 
PRINT " GRAFIIKKATAULUN K 
ÄYTTö" : PRINT LÖ 

PRINT "-1 UUDEN TEHTÄVÄN VA 
LMISTELUT "l PRINT 

PRINT "-2 KOORDINAATTIEN TA 
RKISTUS": PRINT 

PRINT "-3 UUSIEN KOORDINAAT 
TIEN LUKU": PRINT 
PRINT "-4 MUISTIN NÄYTTÖ" s PRINT 

PRINT "-5 TIEDOSTON LUKU" s PRINT 

PRINT "-6 TIEDOSTON LUONTI" 
s PRINT 

PRINT "-7 PI IRTURI OHJELMA " 
: PRINT 

PRINT "-8 KOORDINAATTIEN ED 
ITOINTI* 1 : ? 

PRINT "-9 LOPPU KOORD. KATO 
AA": PRINT 
VTAB (21): HTAB (5): PRINT 
"MIKÄ" 

VTAB (21)i HTAB (2) i GET Kl 

ö 

Kl - VAL (Klö)t IF Kl > 8 THEN 
1770 

ON Kl GOTO 320,210,1110,590 
,1000,1470,2000,2200,1890: GOTO 
1770 

REM ********************** 
**** 

REM PISTE MENUN ULKOPUOLEL 
LA 

REM ********************** 
PRINT " PISTE EI MENUSSA 

"i GOTO 1390 
REM ********************** 
** 

REM PISTE ALUEEN ULKOPUOLE 
LLA 


1870 REM *********************** 
* 

1880 PRINT " PISTE EI OLE 

PI IRROBALUEELLA "t GOTO 13 

10 

1890 END 

2000 HOME i PRINT i PRINT i PRINT 
i PRINT i PRINT "PIIRTURIOHJ 
ELMA" i PRINT i PRINT "LATAUT 
UU LEVYLTÄ" i PRINT s PRINT 

2010 PRINT CHRÖ (4)j"RUN PURTU 
Rl OHJELMA" 

2020 GOTO 1610 

2200 REM ********************** 
*** 

2210 REM EDITOINTI 
2220 REM *********************** 
** 

2230 PRINT "MINKÄ PISTEEN HALUAT 
KORJATA" 

2240 INPUT li PRINT "X- " | X ( I ) » " 

Y- "|Y<I>|" LAJI "ZX(I)i PRINT 

"TASSA NYKYISET MITÄ MUUTAT 

X,Y,2(LAJI) "I 
2250 INPUT Aöi IF Aö - "X" THEN 

INPUT "ANNA UUSI X " | X < I ) 
2260 IF Aö - "Y" THEN INPUT " A 

NNA UUSI Y "jY(I> 
2270 IF Aö ■ "2" THEN INPUT " A 

NNA UUSI LAJI "| 27.(1) 
2280 PRINT "MUUTATKO VIELÄ Y/N " 

: INPUT Aöt IF Aö - "N" THEN 

1650 

2290 PRINT "MUUTATKO TEKSTIÄ Y/ 

N "i INPUT Aöi IF Aö - "N" THEN 

2300 PRINT "ANNA TEKSTIN JäRJ. N 
UMERO J ": INPUT Ji PRINT "T 
ASSA NYKYISET "|Aö(J)|" SS " 
|8S(J)|" QQ "|QQ(J) 

2310 PRINT "ANNA KAIKKI UUDESTAA 

N SAMASSA JÄRJESTYKSESSÄ " i INPUT 
Aö(J) ,SS(J) ,00(J) 

2320 PRINT "VIELÄKÖ MUUTTELET Y 
/N "i INPUT Aö 

2330 IF Aö - "N" THEN 1650 

2340 GOTO 2300 

2470 REM *********************** 
* 

2480 REM TEKSTIN KIRJOITUS PAIK 
K AANS A 

2490 REM *********************** 
I*** 

j 2500 PR# Oi HOME i PRINT "ANNA N 
IMI i "i PRINT :J * J ♦ li 
INPUT Aö(J) 
2505 INPUT "ANNA TEKSTIKOKO "jS 

S<J> 

25 Ui PRINT : PRINT "O-TAVALL ISES 
TI ; 1 =ALHAAL TA YLÖS 2-NURIN 
PAIN ; 3- YLHÄÄLTÄ ALAS" 

2520 INPUT "KIRJOITUS SUUNTA "|0 

IX. I ) 

Jfi.!8 NJ m | 

.','.<. Hf HIRN 
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:ASM 


1 
2 
3 
4 

5 
6 

0300 : 20 21 03 7 
0303: 8D 6 
0304: C1 CC C1 
0307: AO CB C9 
030 A: 02 CA CF 
030D: C9 04 D4 
0310: C1 C1 AO 
0313: A1 AO 9 
0315: 00 10 
0316: 20 42 03 11 
0319: C9 8D 12 
Q31B: FD 03 13 
031D: 4C 16 03 14 
0320 : 60 15 
16 
17 
18 
19 
20 




21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 

0321: 

63 

35 

0322: 

85 00 

36 

0324: 

66 

37 

0325: 

85 01 

38 

0327: 

AD 00 

39 

0329: 

E6 00 

40 

032 B: 

00 02 

41 

032D: 

E6 01 

42 

032 F: 

B1 00 

43 

0331: 

FO 08 

44 

0333 : 

09 80 

45 

0335: 

20 ED FD 

46 

0338: 

4C 29 03 

47 

033B: 

A5 01 

48 

033D: 

48 

49 

033 E: 

A5 00 

50 

0340 : 

48 

51 

0341: 

60 

52 



53 


"KONEKIRJOITUS JA PAINANTA". 
KATSO LANG. CARD SUPPLEMENT P.7 
JA CALL-APPLE DCT.81: P.71 

ORG $300 

OBJ $300 

JSR MSGOUT ; MESSAGE OUT 

HEX 8D ;<CR> 


ASC "ALA KIRJOITTAA l « 

HEX 00 ;VIESTIN LOPPU 

LUUPPI JSR CHRIN 

CMP *$8D ;<CR>7 

BEQ END ;KYLLä, SIIS LOPETA 

JMP LUUPPI 
END RTS 

PRINTSTRING 


BY ANDY HERT2FELD 

PRINTSTRING IS ALUAYS INIT- 
IALI2ED UITH A JSR TO MSGOUT 
THEN FQLLOLIED (USUALLY) UITH 
HEX 8D (FOR A CARRIAGE RTN), 
THEN THE ASCII MESSAGE. THE 
ASCII MUST BE TERMI NATED 
lilITH A HEX 00. 


TEMP 
COUT 


EQU O 
EQU $FDED 


ANDY HERT2FELD»S FAMOUS AND HANDY L'IL 
STRING PRINTING ROUTINE. 


MSGOUT 

PLA 



STA 

TEMP 


PLA 



STA 

TEMP+1 


LDY 

#0 

LOOP 

INC 

TEMP 


BNE 

SKIPADD 


INC 

TEMP+1 

SKIPADD 

LDA 

(TEMP), Y 


BEQ 

MSGRTS 


ORA 

*$ao 


JSR 

COUT 


JMP 

LOOP 

MSGRTS 

LDA 

TEMP+1 


PH A 



LDA 

TEMP 


PH A 



RTS 



;PULL LO BYTE OF RTS OFF STACK 

;SAVE IT 

;PULL HI BYTE 

;AND SAVE IT TOO 

;T0 INDEX STRING 

;AD\/ANCE RTS ADR FOR EACH CHR 

;IF IT'S ZERO THEN WE GOTTA 

; INCREMENT THE HI BYTE 

;GET A CHR FROM ASCII STRING 

;IF CHRr=0, END CF STRING 

;IF STD ASCII CQNV TO NEG FOR COUT 

; OUTPUT THE CHR 

;GET A NElii CHR 

;GET HI BYTE OF RTS 

;PUSH IT BACK ON STACK 

;FETCH NEU LO BYTE OF RTS 

;AND PUT IT ON THE STACK 

;NOU li)E KNOU UiHERE UIE'RE GOING 


35 - 


0342: 

2C 

10 

0345: 

2C 

00 

0346: 

10 

FB 

Q34A: 

AD 

00 

034D: 

2C 

10 

0350: 

20 

ED 

0353 5 

60 



55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
66 
69 
70 
71 

OD 72 
00 73 
74 

CD 75 
00 76 
FD 77 
78 
79 
80 
81 
82 
83 
8<» 
85 
86 
87 


IF THIS SUBROUTINE IS TO BE 
U5ED UJITH FLS OR INU, THEN 
ALL NORMAL ASCII MUST HAVE 
T>!E HIGH BIT SET, I.E., UlITH 
THE M AS A DELIMITER, NOT 
IN ADOITION, DELETE THE LINE 
"ORA fc$60 M . 

CHRIN: KEYBOARD READ ROUTINE 
BETS A SINGLE CHARACTER FROM 
KEYBOARD INPUT AND RETURNS 
IT IN THE ACCUMULATOR. 


KEYBRD 

EQU 

$GDOD 


STROBE 

EQU 

$0010 


CHRIN 

BIT 

STROBE 

;RESET KEYBOARD STROBE 

KEY 

BIT 

KEYBRD 

; CHECK FOR KEYPRESS 


8PL 

KEY 

;N0, NOT YET 


LDA 

KEYBRD 

;YES, SAV/E IN ACC 


BIT 

STROBE 

;CLEAR IT 


JSR 

COUT 

;PRINT IT 


RT S 


;DONE 


MSGIN: THIS ROUTINE GETS A 
STRING OF ASCII CHARACTERS 
REPRESENTING THE USER «S HEX 
INPUT, CONVERTS EACH TUIO 
CHARACTERS TO A SINGLE BYTE, 
UHICH IS RETURNED IN A2L. 






88 

A2L 

EQU 

$3E 





89 

PROMPT 

EQU 

$33 





90 

GETLN* 

EQU 

$FD6A 





91 

CROUT 

EQU 

$FDBE 





92 

GETNUM 

EQU 

$FFA7 





93 

ZMODE 

EQU 

$FFC7 





94 




0354: 

A9 

AO 


95 

MSGIN 

LDA 


0356: 

85 

33 


96 


STA 

PROMPT 

0358: 

20 

6A 

FD 

97 


JSR 

GETLN 

035B: 

20 

C7 

FF 

98 


JSR 

ZMODE 

035E: 

20 

A7 

FF 

99 


JSR 

GETNUM 

0361: 

20 

8E 

FD 

100 


JSR 

CROUT 

0364: 

A5 

3E 


101 


LDA 

A2L 

0366: 

60 



102 


RT S 



M ;BLANK OUT PROMPT 

;MONITOR INPUT ROUTINE 

;INITIALIZE FOR HEX INPUT 

;CLEAR A2, THEN GET CHR FM KBD BUF 

;PRINT A C/R 

;GET CONV/ERTED DATA 

;DONE 


—End assembly — 
103 bytes 
Errors: O 
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63999 PRfTI: FOR IF m 1 TQ 22 : FOR 
X x 102<* TO 1063: PRINT CHR$ 
( PEEK (X)) ;: NEXT : PRINT : 
CALL - 912 i NEXT : END 


63999 5C$ = «« :D $ B CH r$ (13) «. 

CHR$ (<»):ST = PEEh (105) ♦ 
PEEK (106)*256 «■ 2: POKE 
3*4,23: POKE 33,1: PR# 1 : FOR 
LI = 1 TO 2U: UTAB (LI): CALL 
- 990: POKE ST,**0: POKE ST + 
1, PEEK (^0): POKE ST + 2, PEEK 
(M): PRINT SC$ CHR$ (13);: NEXT 
LI: PRINT : TEXT : PRINT D$» 
PR#Q 


0300: A9 00 
0302: Q5 36 
030^: A9 C1 
0306: 85 37 
0308 : 20 EA 03 
030B: 20 8E FD 


1 
2 
3 

4 

5 
6 
7 

a 

9 
10 

11 

12 
13 
M* 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2i* 
25 
26 
27 
28 
29 


TEXT SCREEN DUMP 
(LYHENNETTY VERSIO) 
BY OAU ID y. WALKER 
CALL-A.P.P.L.E. FEÖ 82 


BASCALC 

QASL 

COUT 

CROUT 

CSUJL 

CSUJH 

DOSHOOK 

PNTR 


$FBC1 
$28 
$FDED 
$FDBE 
$36 
$37 
$3EA 
$0 

ORG $300 
OBJ $300 
LDA *$Q 
STA CSUJL 
LDA *$C1 
STA CSUJH 
JSR DOSHOOK 
JSR CROUT 


TURN OFF SCREEN. 


,-DEFAULT VALUE 
;FOR CARD IN SLOT 1 

; OUTPUT TQ INIT PRINTER 


THIS IS NE CESSARY IF OUTPUT IS TO AN 
APPLE PRINTER CARD. YOU MAY CHOOSE TO 
OMIT THIS ROUTINE IF YOU HAME A 
DIFFERENT PRINTER ORIVER 
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31 




030 E: 

A9 50 

32 


LDA 

1*K SCRNQFF 

□310: 

AO 03 

33 


LDY 

tf>SCRNOFF 

0312: 

20 56 03 

34 
35 


JSR 

PRMSG 

0315: 

A9 00 

36 


LDA 

**$0 

0317: 

AA 

37 


TAX 


03 1B: 

20 C1 FB 

3B 
39 


JSR 

BASCALC 

031B: 

AO 00 

40 

LOOPX 

LDY 

#$o 

031D: 

B1 28 

41 

LOOP 

LDA 

(BASL), Y 

031F: 

C9 20 

42 


CMP 

*t$20 

0321 : 

BO 02 

43 


BCS 

NOINV 

0323: 

69 CD 

44 


ADC 

4»$C0 

0325: 

C9 60 

45 

NO INU 

CMP 

*$60 

0327: 

BO 02 

46 


BCS 

NQFLASH 

0329: 

69 80 

UI 


ADC 

**$80 

032 B: 

C9 80 

kB 

IMQFLA5H 

CMP 

=»$80 

032 D: 

BO 02 

49 


BCS 

PRINT 

032 F: 

69 40 

50 
51 


ADC 

4*$40 

0331: 

20 ED FD 

52 

PRINT 

JSR 

COUT 

0334: 

CB 

53 


INY 


0335: 

CO 20 

54 


CPY 

#$28 

0337: 

90 E4 

55 


BCC 

LOOP 

0339: 

20 BE FD 

56 


JSR 

CROUT 

Q33C: 

EB 

57 


INX 


033D: 

BA 

5» 


TXA 


□33E: 

20 C1 FB 

59 


JSR 

BASCALC 

0341 : 

EQ 16 

60 


CPX 

*$18 

0343: 

90 D6 

61 


BCC 

LOOPX 

0345: 

A9 FO 

62 


LDA 

*$FQ 

0347: 

85 36 

63 


STA 

CSUL 

0349: 

A9 FD 

SU 


LDA 

*$FD 

034 B: 

B5 37 

65 


STA 

CSUH 

034 D: 

4C EA 03 

66 
67 


JMP 

DOSHOQK 

0350: 

89 

68 

SCRNQFF 

HEX 

89 

0351: 

B4 BQ CE 

69 


ASC 

»40 N" 

0354 : 

8D QO 

70 
71 


HEX 

8D00 

0356: 

85 00 

72 

PRMSG 

STA 

PNTR 

035Ö: 

84 01 

73 


STY 

PNTR+1 

035 A: 

AO 00 

1U 


LDY 

*$0 

035 C: 

B1 00 

75 

PRLQOP 

LDA 

(PNTR), Y 

035 E: 

FO 06 

76 


BEQ 

EXIT 

0360: 

20 ED FD 

77 


JSR 

COUT 

0363: 

CB 

78 


INY 


036**: 

DO F6 

79 


BNE 

PRLQOP 

0366: 

60 

BQ 

EXIT 

RTS 


0367: 

00 

81 


BRK 



;TH£SE ADDR. ARE CHANGED 
;BY THE RELGCATION ROUTINE 


GET BASE ADDRESS 
FOR FIRST LINE 
OF SCREEN 

SET CH TO O 
GET SCREEN CHARACTER 
INVERSE ALPHA? 
NO, DO NEXT EST 
YES, TRANSLATE 
FLASH ING ALPHA? 
NO, DO NEXT TEST 
YES, TRANSLATE 
HIGH BIT SET? 
YES, PRINT IT 
NO, FINISH TRANSLATION 


UQ CHARACTERS PRINTED? 
NO, PRINT NEXT CHARACTER 
YES, FINISH LINE UlITH <C/R> 


;ZU LINES PRINTED? 
;N0, PRINT NEXT LINE 
YES, FINISH PAGE 
;BY RESETTING OUTPUT 
;T0 POINT TO SCREEN 


;AND RETURN TO BASIC 
;(CTRL-I) 


— End assembly 
1Q4 bytes 
Errors: O 


Kauttani on saatavissa erittäin edullisesti uusia ja testattuja tarvikkeita 
lähinnä Apple II ja 11+ tietokoneille. Hintaesinerkkejä: 

Kalvolevyasena 143 ktavua ja liitäntäkortti. DOS 3.3 sopiva.. ..4400 «k. 

Toinen aseta 143 kt ilnan liitäntäkorttia 3500 nk. 

Lisämuisti 16 kilotavua. RAM-nuistin laajennus 16-32 kt tai 32-48 M....440 »k. 

RAM-Kortti. Laajentaa RAH-nuistin 48 ktavusta 64 ktavuun. ..........990 nk. 

Disketit 5 1/4". Hyös «uille koneille kuin Applelle. 10 kappaletta 250 nk. 

Kalenteri/Kellokortti. Ajat sekunneista vuosiin .................990 nk. 

Apple Silentype länpökirjoitin ♦ liitäntäkortti................... 2900 nk. 

Z-80 CP/K kortti 2400 nk. 

Lisäksi saatavana m. erilaisia liitäntäkortteja Okidata- ja Epson- 
kirjoittinille, useita kieliohjelnia, tekstin- ja tietojenkäsitte- 
lyohjelmia, peliohjelnia sekä seuraavat allekirjoittaneen laatinat 
ohjelnat: 

PQLnDKOOTTORI. Basic-kielinen ohjeina, joka käsittelee erilaisia 
kiertoprosesseja. Laskee ja piirtää näyttöpäätteelle prosessin 
tärkeinsät suureet käyttäen hyväksi Applen nolenpia tarkkuus- 
grafiikkoja. Sopii havainnollisuutensa takia erinonaisesti esin. 

tenfjodynaaiikan opetukseen. 290 nk. 

ALYBADIX. Jo ympäri »aa ilmaa tunnettu konekielinen ohjelnasarja 
(11 eri ohjelmaa), joka on tarkoitettu erilaisten shakkitehtävien 
ratkaiseniseen. Ohjelnasta on erillinen englanninkielinen esite. 

Toiaitusaika yleensä 0-2 kuukautta. Lisäksi 5* alennus, jos naksu suoritetaan 
tilatessa. Tilaa täydellinen hinnasto. Kirjoita tai soita! 



Ilkka Bio», dipl.ins. 
Palosaarentie 13-17 C 27, 65200 Vaasa 20 
puh. 961/122832 (Varaumin iltaisin) 


PELASTUSARMEIJAN 
KAUPPAOSASTO 
perustettu 1898 •« 

Uudenmaankatu 40 
Helsinki 


PELASTUSARMEIJAN 
KAUPPAOSASTO 
«. tei 

0O121 HELSINKI 12 


& 90-646525 


PELASTUSARMEIJAN KAUPPAOSASTO on normaali paperi-, kirja- ja 
musiikkikauppa. Onpa meillä "lapsellisille" Satusoppikin (Legoja, ym). Nyt 
olemme avanneet myymälämme yhteyteen MIKROSOPDM. Voit ostaa 
"kerhohintaan" tarvikkeita. Lähetämme postitse kaikkialle Suomeen 
postiennakolla, emme peri posti- emmekä pakkauskuluja mikäli tilauksesi on 
yli mk 100,-. Oheisena hintatietoja alamme tarvikkeista. Luonnollisesti 
kerhohintaetusi on voimassa myös muissa myyntiartikkeleissa kuin 
allaluetelluissa (ilmoitetut hinnat ovat ohjevähittäishintoja joista 
kerholaisille tulee alennusta): 

Scotch disketti 744D-0 mk 340,-/ 10 kpl (ei tarvitse ostaa koko 
pakkausta). 

Scotch tietokasetti 830 c-10 mk 15,-/kpi 
Scotch puhdistuspakkaus "Head cleaning diskettes" mk 145,- 
Diskettien säilytystä varten: 

Scotch diskettikotelo, hyvä ja tiivis, 10 disketille mk 25,-. 
MIA diskettitasku, vahvaa muovia, sopii yleisreiMtyksen ansiosta 
mappeihin, kansioihin (A4), siihen mahtuu 12 diskettiä. Hinnaltaan 
edullinen, mk 19,50 

Kiusaako Sinua staattinen sähkö? Scotch VELOSTAT auttaa! 
60x80 440,-, 90x120 830,-, 120x150 1050,- ja 120x240 
1300,-. 

Jatkoratatarroja, -paperia, värinauhoja jne. 

Varastomme ei suinkaan ole vielä täydellinen. Auta Sinä ja ehdottele 
valikoimaamme artikkeleita. Tehdään yhdessä hyvä kauppa! 

Soita ja kysele. Myymälänhoitajallemme on tämä meidän alamme 
vierasta, joten jos on kysyttävää niin soita minulle 

virka-aikana 90-646 525/220 
kotiin 90-611 875 

Parhain terveisin 

Jaakko Kaunismäki 

Pelastusarmeijan Kauppaosasto on avoinna arkisin klo 9,30 - 17,00, 
keskiviikkoisin klo 9,30 - 18,50. Lauantaisin suljettu. 

Tarkkaile postiasi! Lähetän lähiaikoina kirjeen Sinulle jossa kerron 
tarkemmin mm. kerhohinnasta. 

Velostat esite seuraa kirjettä! 


